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MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT 10 CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
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1.0 GENERAL PROGRAM INFORMATION. 


1.1 PROGRAM PURPOSE (ABSTRACT). 


THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 
2 SERIAL LINE UNITS, ROM & CLOCK OPTIONS, & RAM ON THE MXVII-A. 


SERIAL LINE UNIT TESTING IS DONE IN TWO DISTINCT PHASES: 
1. EACH OF THE 2 CHANNELS OF THE MXV11-A JS TESTED INDIVIDUALLY. 


2. THE MXV11-A MODULE IS TESTED AS A WHOLE FOR CHANNEL INTERACTION 
PROBLEMS. THIS DIAGNOSTIC IS DESIGNED TO TEST AND DETECT 
ERRORS TO THE LOGIC LEVEL & NOT THE CHIP LEVEL. 


THE PROGRAM WILL TEST TO WHATEVER OPTIONS THE DEVICE MAP ($DEVM) 

1S SET TO. SEE PROGRAM OPTIONS & DEFAULTS SEC 2.4. 

THE PROGRAM WILL PRINT THE CONTENTS OF SDEVM FOR OPERATOR VERIFIACTION 
& A SUMMARY OF SIGNIFICANT DIFFERENCES FROM THE DEFAULT CONDITIONS 
1.£: CHANNEL(S) DROPPED FROM TESTING, CHANNEL 1 AS CONSOLE, 

ROM/RAM TESTING BYPASSED & CLOCK ENABLED. 


THE OPERATOR MUST INSTALL DATA WRAP AROUND CONNECTORS TO DO 
DATA TESTING. TO BYPASS DATA TESTS, THE OPERATOR MUST MODIFY SDEVM. 
SEE PROGRAM OPTIONS SEC. 2.4 ' 


THE ADDRESSES & VECTOR RANGES ARE AS FOLLOWS: 


CHANNEL 0: 176500 THRU 176556 
CHANNEL 1: 176500 THRU 176576 

177500 THRU 177576 (¢ CAN BE CONSOLE ) 
VECTORS : Q THRU 374 


THE DEFAULT ADDRESSES & VECTORS ARE AS FOLLOWS: 


CHANNEL 0: 176500 THRU 176506 VECTORS: 300/304 
CHANNEL 1: 177560 THRU 177566 VECTORS: 60/64 


FOR ANY OTHER DEVICE ADDRESSES THE OPERATOR MUST CHANGE THE 
DEFAULT LOCATIONS. SEE PROGRAM OPTIONS & DEFAULTS SEC. 2.4 . 


THIS PROGRAM IS DESIGNED TO RUN ON ANY Q-BUS PDP-11 WITH 4K OF 
MEMORY AND AN MXV11-A (Q-BUS) MODULE. IT CAN RUN UNDER XXDP & 

APT MONITORS, AND ON PROCESSORS WITH NO HARDWARE 

SWITCH REGISTER, 
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SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 
ANY Q-BUS PDP-11 FAMILY PROLESSOR 
4K MEMORY - MINIMUM 
A SPECIAL DATA WRAP AROUND CONNECTOR (PN # H3270-A) OR EQUIVALENT 
(REQ'D IF DATA WRAP AROUND TESTS DESIRED) 
If CHAN. 1 1S THE CONSOLE, TESTS 11-14, 16-21, 23-24 ARE BYPASSED. 


IF DATA WRAP AROUND TESTS ARE BYPASSED, TESTS 12-14, 16°21, 23-24 ARE BYPASSED. 


SOFTWARE REQUIREMENTS: 

THIS DIAGNOSTIC CAN RUN IN THE FOLLOWING WAYS: 

STAND ALONE 

wiTH APT MONITOR 

WITH XXDP MONITOR (CHAINABLE IF RENAMEC TO .BIC EXTENSION) 


THIS DIAGNOSTIC 1S NOT DESIGNED TO RUN WITH THE DIAGNOSTIC SUPERVISOR. 


RELATED DOCUMENTS AND STANDARDS. 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 
APT MD-11-DZZ2MA 
SYSMAC MD-11-DZQAC 


DIAGNOSTIC HIERARCHY PREREQUISITES. 

NO SPECIAL DIAGNOSTICS ARE REQUIRED TO RUN BEFORE THIS, Bul 
THE PROCESSOR, MEMORY, AND BUS ARE ASSUMED 10 BE FULLY 
OPERATIONAL. ; 


ASSUMPTIONS. 
THE OPERATOR MUST: 


1. SET THE SOFTWARE SWITCH REGISTER (SWR) If NOT DEFAULTED. (SEC. 2.3) 
2. SET THE DEVICE MAP ($DEVM) IF NOT DEFAULTED.(SEC. 2.4) 

3. SET THE SERIAL LINE ADDRESSES & VECTORS IF NOT DEFAULTED.(SEC 2.4) 
4. SET THE ROM HI & LO ADDR IF NOT DEFAULTED.(SEC 2.4) 


vT-100 CONSOLE SETUP. 


If CHANNEL 1 IS CONFIGURED AS THE CONSOLE & THE vT=-100 IS THE 
CONSOLE DEVICE, “SETUP B’’ MUST BE SET IN FOR THE FOLLOWING: 

- DISABLE KON/XOFF 

JUMP SCROLL ON 

- NEW LINE OFF 

ALL OTHER OPTIONS PER SYSTEM REQUIREMENTS, 


SEQ 0004 
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OPERAIING INSTRUCTIONS. 


LOADING AND STARTING PROCEDURES. 
Se STANDARD PROCEDURE FOR PDP=11 ABSOLUTE BINARY FURMATTED 
‘at 4 


ALL NORMAL STARTS & RESTARTS ARE FROM LOCATION 200. 


THERE ARE 2 STARTING ADDRESSES TO BE USED OFF LINE ONLY FOR 
INTERRUPT VECTOR TROUBLE SHOOTING: 


1310 START: LOADS ADDRESSES 0 TO 400 WITH THE ADDRESS OF AN 
INTERRUPT ROUTINE THAT JUST DOES RTI°S ALLOWING LOOPING 
IN THAT PART OF THE TEST WHERE INTERRUPT VECTOR 
PROBLEMS ARE OCCURING. 
NORMAL TESTING WILL THEN BEGIN. 


1332 START: LOADS ADDRESSES 0 TO 400 WITH TRAP CATCHER CODE. 
ANY INTERRUPT TO THIS REGION WILL HALT. 
NORMAL TESTING WILL THEN BEGIN. 


AS SOON AS TESTING STARTS, THE OPERATOR CAN CHANGE THE SWITCH 
REGISTER ONLY BY A ‘BREAK' & MANUALLY LOADING LOCATION 176 (SWREG) 


WITH THE DESIRED CONTENTS (SEE SEC. 2.3) THEN DOING A 'P* TO PROCEED. 


THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 
B1T 8 IN SWREG AND THE TEST NUMBER (IN OCTAL) IN BITS <7:0>. 
(NOTE: ALL TESTS PREVIOUS TO THE SELECTED 
ONE ARE EXECUTED WITHOUT ITERATIONS.) 


SPECIAL ENVIRONMENTS. 

THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UDER APT,XXDP MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. ‘ 
OPERATIONAL SWITCH SETTINGS 

THE SOFTWARE SWITCH REGISTER (LOC. 176) IS USED FOR ALL 


OPERATIONAL SWITCH SETTINGS. 
THIS CAN BE ACCOMPLISHED IN THE FOLLOWING WAY: 


SEQ 0005 
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L ALLOW THE TTY TO ENTER 


1) TYPE CONTROL G <*G>; TH It 
1 AT SELECTED POINTS WITHIN THE 


DATA INTO LOC. 
PROGRAM, 


2) THE MACHINE WILL THEN TYPE:" SWR=XXXXXK NEWS" (XXKKKK TS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE ‘NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY 
A <CR>. (ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED, AND IF MORE THAN 6 
DIG]7S ARE TYPED THE LAST 6 WILL BE USED. IF A <CR> 
1S THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


() IF THE INPUT CHARACTER 1S NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN A QUESTION MARK (?) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED SEQUENCE 
THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT). 


4) THE DIAGNOSTIC WILL CONTINUE ON TYPING <CR>. 


NOTE: BECAUSE OF THE FREQUENT BUS RESETS IN THE PROGRAM, MULTIPLE 
CONTROL-G'S MAY BE REQ'D. If NECESSARY, “BREAK' INTO THE 
PROGRAM & LOAD LOCATION 176 (SwREG) BY ‘ODT’ TO THE DESIRED CONTENTS. 
DO A 'P* 10 PROCEED. 


SOFTWARE SWITCH REGISTER OPTIONS (SWREG) 


BIT 15 SET = 100000 = HALT ON ERROR 
14 SET = 40000 = LOOP ON TEST (TO BE USED ONLY WHILE TESTING IN PROGRESS) 
13 SET = 20000 = INHIBIT ERROR TYPEOUTS 
12 SET = 10000 = ENABLE PERFORMANCE REPORTS 
11 SET = 4000 = INHIBIT ITERATIONS 
10 SET = 2000 = BELL ON ERROR 
9 SET = 1000 = LOOP ON ERROR 
8 SET = 400 = LOOP ON TEST IN SWR<7:0> 
ro. 8 NUMBER OF TEST TO LOOP ON (USED WITH BIT 8) 


(ALL TESTS PREVIOIUS TO THE SELECTED TEST 
ARE EXECUTED FIRST WITH 1 ITERATION ONLY? 


SEQ 0006 | 
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PROGRAM OPTIONS & DEFAULTS. 


THIS PROGRAM REQUIRES THE ADDRESS OF THE FIRST RCSR OF EACH 
SERIAL LINE UNIT & ITS INTERRUPT VECTORS TO BE PREVIOUSLY STORED 
If NOT DEFAULTED: 


REGISTER LOCATION DEFAULT 
CHANNEL 0 BASEO 1254 176500 RCSR 
; vVECTO 1256 300 VECTOR 
CHANNEL 1 BASE| 1260 177560 RCSR 
VECTI 1262 60 VECTOR 


LOCATION ‘SDEVM' IS USED AS A BIT MAP TO INDICATE WHICH OPTIONS 
ARE PRESENT AND TO BE TESTED. 

THE OPERATOR iS PROMPTED ON INITIAL PROGRAM STARTUP. 

*SDEVM' CAN BE CHANGED ANY TIME BY TYPING 'CONTROL-G" & "CONTROL-C’. 
THE PROGAM WILL RE-SIZE & RESTART AT THE BEGINNING AGAIN, 


SDEVM DEFAULT = 000000 
m- Te 10 9 8 7 6 5 4 3 2 i 0 BIT 


eeeceererereertereeeeeeteeeeeeeeeeeeeeeeeeeeeetenesretreeteneteereehneeteeeteteeteneteeeee 


: : ; ; : ; : : : : : : : : ! CHANNEL 


' i ' ' ' ' ' ' ! ' ' ‘ ' ' ‘ ' 


eenrrereretereereereteneeeeeeeeneeeeeeeeeeeeeeereeereeteteteteeetteteteteteheteteneenese 


CHANNEL O: 
B11 15: 0 = TEST CHANNEi 0 = DEFAULT 
1 = BYPASS CHANNEL 0 TEST = 100000 
BIT 14: 0 = 8 BITS/WORD (NO PARITY) = DEFAULT 
1 = 7 BITS/WORD (WITH PARITY) = 40000 
B11 12: 0 = ODD PARITY = DEFAULT 
1 = EVEN PARITY = 10000 
BIT 11: QO = BREAK DETECTION DISABLED = DEFAULT 
1 = BREAK DETECTION ENABLED = 6000 
B1' 1G: 0 = DO DATA WRAP AROUND TESTS = DEFAULT 
1 = BYPASS DATA WRAP TESTS = 2000 


SEQ 0007 
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CHANNEL 1: . 
Bl?’ 8: O = TEST CHANNEL 1 = DEFAULT 
1 = BYPASS CHANNEL 1 TEST s 400 
BIT 7: 0 = 8 BITS/WORD (NO PARITY) = DEFAULT 
1 = 7 BITS/WORD (WITH PARITY) = 200 
B11 5: O = ODD PARITY = DEFAULT 
1 = EVEN PARITY = 40 
B!1 4: 0O = BREAK DETECTION DISABLED = DEFAULT 
1 = BREAK DETECTION ENABLED = 20 
B11 3: 0 = DO DATA WRAP AROUND TESTS = DEFAULT 
1 * BYPASS DATA WRAP TESTS = 10 
Bit 2: O = TEST RAM = DEFAULT 
1 = BYPASS RAM TESTS = 4 
BIT 1: O = ROM PRESENT = De FAULT 
1 = BYPASS ROM TESTING = 2 
B11 0: O = CLOCK OPTION DISABLED = DEFAULT 
1 = CLOCK OPTION ENABLED = 1 
IMPORTANT: 


1. IF RUNNING UNDER APT & THE CONSOLE IS ON THE MXV11-A, 
THE CONSOLE MUST NOT BE TESTED SINCE AP1 SENDS "BREAKS" 
TO THE CONSOLE WHICH INTERFERES WITH THE TESTS. 


SUMMARY OF USER LOCATIONS & DEFAULTS. 


Lot DEFAULT 
$DEVM 1252 0 DEVICE MAP 
SWREG 176 0 SOFTWARE SWITCH REGISTER 
BASED 1254 176500 CHANNEL 0 
VECTO 1256 300 CHANNEL 0 
BASE} 1260 -177560 CHANNEL 1 
vECTI 1262 60 CHANNEL 1 
LOROM 1264 1730006 LOW KOM ADDRESS 
H] ROM 1266 173776 HIGH ROM ADDRESS (256 WORDS) 
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EXECUTION TIMES. 
EXECUTION TIMES FOR AN LS]=11 PROCESSOR WITH THE MXV11-A MODULE AT SHIPMENT CONFIGURATION: 


Ch. 0 AT 38.4K BAUD. 
CH. 1 (CONSOLE) AT 9600 BAUD. 


LSI-11 F-11 
ARE: FIRST PASS- 25 SEC i5 SEC FOR SLU TESTS ONLY 
ADDITIONAL PASSES 55 SEC 30 SEC FOR SLU TESTS ONLY 


THE TEST TIME IS _— RATE DEPENDENT; HIGHER BAUD RATES RESULT IN 
SHORTER PASS TIMES 


THE RAM TESTS REQUIRE THE ADDITIONAL TIMES SHOWN BELOW FOR ALL PASSES: 


LS1-11 Feil 
4K 15 SEC 10 SEC 
Bk 40 SEC 18 SEC 
12k 1:00 Mw 30 SEC 
16K 1:20 40 SEC 
20K 1:40 50 SEC 
24K 2:00 1:00 MIN 
28k 2:20 1:20 MIN 


POWER FAIL. 


AUTO START FROM POWER FAIL IS IMPLEMENTED IN THIS PROGRAM, 
UPON POWER UP, THE PROGRAM WILL RESTART FROM THE BEGINNING. 





SEQ 0009 


a a + ee + 2 
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3.0 ERROR INFORMATION. 


Pe! ERROR REPORTING PROCEDURE. 


SINCE THIS DIAGNOSTIC WAS DESIGNED TO FIT IN 4K OF MEMORY THE 
ERROR TYPEOUT IS VERY BRIEF. THE FORMAT OF THE ERROR TYPEOUT 
1S AS FOLLOWS: 


»PC= ,ADDRESS= 


WHERE ALL VALUES TYPED ARE OCTAL. 

THE ADDRESS AND VECTOR REFER TO THE FAILING CHANNEL. 

FOR FURTHER INFORMATION THE LISTING MUST BE CONSULTED. 

BITS 15,13,10 AND 9 OF THE SWITCH REGISTER (SWREG) CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 


B1T 15 SET: CAUSES THE PROGRAM TO HALT IN THE ERROR ROUTINE. 
IF THE PROGRAM IS CONTINUED, IT WILL PROCEED 
FROM WHERE IT HALTED. 


BIT 13 SET: DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 SET: CAUSES THE BELL TO RING ON ERROR, 


BIT 9 SET: CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G <*G> FUNCTION. 
REFER TO SECTION 2.3 FOR DETAILS. 


5.2 ERROR HALTS. 


THE ONLY HALT IN THIS DIAGNOSTIC IS IN THE ERROR ROUTINE, AND 
1S EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER (SWREG) IS SET 
WHEN AN ERROR OCCURS. 





SEQ 0010 


SS SSS SSS Se Se 
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PERFOR™SN(E AND PROGRESS REPORTS. 


PENPURMANCE REPORTS. (BIT 12 SET IN THE SWITCH REGISTER "SWREG') 


AS EACH CHANNEL COMPLETES ONE PASS OF THE DIAGNOSTIC, 
THE FOLLOWING ITEMS ARE TYPED: 


"CSR: ___* : THE BASE ADDRESS OF THE LINE UNDER TEST 

"VECTOR?__* : THE ASSOCIATED VECTOR 

"ERRORS:__* : THE TOTAL NUMBER OF ERRORS ON THIS DEVICE 
ON THIS PASS. 


AFIER ALL MODULES & CHANNELS TO BE TESTED HAVE BEEN EXERCISED, 
AN END PASS STATEMENT IS TYPED: 


“END PASS#_____ io 
EXAMPLE OF PRINTOUT ASSUMING: SEPERATE CONSOLE DEVICE 
16k RAM 
CLOCK ENABLED 
NO ERRORS 


CVMXAAO MXV11A DIAGNOSTIC 
SwR= 000000 NEW= 10000<CR> 
DEVM = 000000 NEW = 201<CR> (CH.1 = 


16K MEMORY 
CLOCK ENABLED 


** PHASE 1 SUMMARY ** 


CSR: 176500, VECTOR: 000760, ERRORS: 0 (CHANNEL 0) 
CSR: 177500, VECTOR: 000770, ERRORS: 0 (CHANNEL 1) 


** PHASE 2 SUMMARY *# 
CSR: 176500, VECTOR: 000760, ERRORS: 0 


END PASS # 1 


NOTE: THE DCVICE MAP ‘S$DEVM' CAN BE CHANGED - ANY TIME BY TYPING 


*CONTRUL-G' & 'CONTROL-C'. SEE SEC. 2 


THE PROGRAM WILL RE-SIZE & RESTART AT THE BEGINNING AGAIN, 


SEQ 9011 


(ENABLE PERFORMANCE REPORTS) 

7 BITS/WORD (WI'H PARITY), CLOCK ENABLED) 
! 
| 
' 


CINTERACTION TESTS STARTING 
WITH CH 0) 
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5.0 DEVICE REGISTERS. 


7 oe -e  aee ee ee 9 8 ? 6 5 o 3 2 1 0 


eeerrenreeerrerereteereeeeeeeeeneeeeeeeeeeteteeteeeeteteteeeeereeeeeeeeteteteeeteeeeeene 


cacau! Coe Sie ek oe ee oe ee ee ee ae ee oe 
Se Dos Sak A es ee ee a ee ee ee See ee 
POTTTTTTTTTTTITITITTTITTTTTT TIT TI TTT TTT TTITiTiTiTiTiLiiiiiii iii, 
RBUFIERRO'OR 'FR 'P ff fF Ul RECEIVER DATA BUFFER ! 


!R ‘ERR {ERR 'ERR : : : : : : 


seueenereueencecereeceeenecavensncccececararecssaccerereecensaseneeassaeesesseess 


scot SOG ee Meee) Siar Se MAE See eet) —~ Us a ee Me Pe 
be eel Bae Sik SG le ce ce a ee 
LRP LE TONE: Fi 8, BO OE IE, SE any NG II EC PETES VE IES: PE. 


TBUF ! 4 ; : : : H : : TRANSMITTER DATA BUFFER : 
i] ‘ ' ‘ ! ' ' ‘ ' ' 
Pe Tee TPT TT TTT TT TT TT TTT TTTITIT ITI TTI 

! ! ! ' ! 


NOTES: ie ee oS 


1. RCSR AT BASE ADDRESS ($BASE) 
RBUF AT $BASE+2 
TCSR AT $BASE+4 
TBUF AT $BASE+6 


2» LANK BITS INDICATE UNUSED AND RESERVED 
BIT POSITIONS. SEE THE LISTING FOR AN 
EXPLANATION OF THE BITS. 


3. ORERR = OVERRUN ERROR 
FRERR = FRAMING ERROR 
PERR => PARITY ERROR 


ES SL tne 





N 1 
CVMXAAQ MXVITA_ DIAG MACY11 306(1063) 30-MAY-79 15:58 PAGE 15 
CVAKAA.P11 30-MAY-79 15:57 


6.0 SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 





PHASE 1 TESTS 


TEST 1 RAM ADDRESS TEST 
WRITE ENTIRE MEMORY WITH ADDRESS AS DATA. READ MEMORY TO VERIFY. 


TEST 2 RAM DATA & VOLITILITY TEST 


WRITE ALL MEMORY TO BACKGROUND OF ALL 1'S. 

TEST LOCATION FOR CORRECT BACKGROUND. 

FLOAT O°S & COMPLEMENT THRU WORD. RESET LOCATION T0 BACKGROUND. 

REPEAT ABOVE 3 STEPS FOR EACH LOCATION. 

WHEN ALL LOCATIONS TESTED, CHECK ENTIRE MEMORY FOR BACKGROUND PATTERN. 
CHECK VOLITIL ITY BY WAITING MORE THAN 5 SEC & RECHECKING BACKGROUND PATT. 
REPEAT ALL 1HE ABOVE FOR BACKGROUND PATTERN OF ALL O'S & FLOATING 1'S. 


TEST 3 ROM TESTS 


THIS TEST VERIFIES THAT ALL 4& REGISTERS OF THE CHANNE\ 
UNDER TEST RESPOND TO THEIR ADDRESSES. 


THE FOLLOWING 3 TESTS TEST ALL ‘READ WRITE’ BITS 


TEST 6 BREAK = TCSR O SET, CLEAR, RESET 


TEST 7 KMITIE = TCSR 6 SET, CLEAR, RESET 


TEST 10 RCVRIE = RCSR 6 SET, CLEAR, RESET 


TEST 11 XMIT RDY = TCSR 7 = CLEARS WHEN TBUF 1S LOADED 
ones oo WITH A CHARACTER AND THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 


SEQ 0013 
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TEST 12 QUTPUTTING A CHAR FROM TBUF (WITH WRAP AROUND CONNECTED) 
——e oe RESULTS IN _RCVRDONE SETTING WITHIN A 
REASONABLE AMOUNT OF TIME AND THAT RESET 
CLEARS THE BIT. 


TEST 13 RCVRDONE IS CLEARED BY READING RBUF 


TEST 14 OVERRUN & ERROR BiT - RBUF 14 


TEST 15 TRANSMITTER INTERRUPT LOGIC TEST 


LOGICALLLY THIS 1S 4 SEPARATE TESTS 
A) DOES TRANSMITTER INTERRUPT LOGIC WORK 
B) AT PRIORITY OF O 
C) AND ONLY ONCE 
D) BUT NOT WITH INTERRUPT ENABLE CLEAR 


TEST 16 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 
cone on OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC IN 
CHARACTER MODE. 


TEST 17. TEST DATA WRAP AROUND BINARY COUNT: FLAG MODE. 


TEST 20 TEST DATA WRAP AROUND BINARY COUNT: INTERRUPT MODE. 


TEST 21 TESf BREAK LOGIC: TRANSMIT KNOWN CHAR 


A) TRANSMIT KNOWN CHAR WITH BREAK SET 
AND COMPARE RECEIVED WITH 0 

B) TEST FOR FRAMING ERROR ON BREAK 

C) IF PARITY IS ENABLED AND ODD PARITY IS SELECTED, 
CHECK TO BE SURE PARITY ERROR WAS GENERATED 

D) IF PARITY IS ENABLED AND EVEN PARITY IS SELECTED, 
CHECK TO BE SURE NO PARITY ERROR OCCURRED 


TEST 22 NOT A TEST ~- SEND BACK TO LOOP 


eeeoeee PHASE 2 TESTS renee 
TEST 23 TEST THAT CHANNELS INTERRUPT AT ASSIGNED PRIORITY 


TEST 24 TEST DATA TRANSFERS WITH ALL ALTIVE LINES INTERRUPTING, 


i 
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001100 


000011 
000012 


000606 
000007 


600000 
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~TITLE CVMXAAO MXV11A DIAG 
s*COPYRIGHT (C) 1978 
s*DIGITAL EQUIPMENT CORP. 

: MAYNARD, MASS. 01754 


; *PROGRAM BY GARY PAPAZIAN 


aTHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
>*PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 77. 


| 


“ SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


5 HALT ON ERROR 
4 LOOP ON TEST 
3 INHIBIT ERROR TYPEOUTS 
1 INHIBIT ITERATIONS 
0 BELL ON ERROR 
9 LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 
BITL . BASIC DEFINITIONS 


s* INITIAL ADDRESS OF THE STACK POINTER *#* 1100 *## 
STACK= 1100 

-EQUIV. EMT,ERROR >;BASIC DEFINITION OF ERROR CALL 
-EQUIV I10T,SCOPE 7;BASIC DEFINITION OF SCOPE CALL 


> *MISCELLANEOUS DEFINITIONS 
HT= 11 3;CODE FOR HORIZONTAL TAB 


band 
>@ 
22 
-* 
°? 
-* 
'S 


LF= 12 7:CODE FOR LINE FEED 

CR= 15 >: CODE FOR CARRIAGE RETURN 

CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 >;PROCESSOR STATUS WORD 

-EQUIV PS,PSwW 

STKLMT= 177774 7: STACK LIMIT REGISTER 

PIRQ= 177772 >;PROGRAM INTERRUPT REQUEST REGISTER 
DSwR= 177570 7 HARDWARE SWITCH REGISTER 

DDISP= 177570 >; HARDWARE DISPLAY REGISTER 


> *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 7 :GENERAL REGISTER 


Pl= a1 :;GENERAL REGISTER 
R2= Xe > GENERAL REGISTER 
R3= %3 > ;GENERAL REGISTER 
R4= %4 > GENERAL REGISTER 
R5= a5 >; GENERAL REGISTER 
RO- 46 GENERAL REGISTER 
R7= 47 ; GENERAL REGISTER 
SP= 46 s; STACK POINTER 

PC= %7 > ;PRCGRAM COUNTER 


s*PRIORITY LEVEL DEFINITIONS 
PRO= 0 PRIORITY LEVEL 0 


SEQ 0015 
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696 000340 


100000 


000001 


100000 


000001 


Y1 
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BASIC DEFINITIONS 


40 s PRIORITY LEVEL 1 
100 s:PRIQRITY LEVEL 2 
140 > PRIORITY LEVEL 3 
200 s:PRIORITY LEVEL 4 
240 s;PRIORITY LEVEL 5 
300 s;PRIORITY LEVEL 6 
340 > ;PRIORITY LEVEL 7 


s*'"SWITCH REGISTER’ SWITCH DEFINITIONS 
Sw 100000 


Sw10 


* MWWODODWDOWDOAIOOIOAOAOWD:: 


40000 
20000 
10000 


Sw09,Sw9 
SwW08,Sw8 
Sw07,Sw7 
SW06,.SW6 
$w05,SW5 
SwW04,SwW4 
$w03,Sw3 
SWO2,SW2 
SwW01,S@1 
SwO0,SwO 


BIT DEFINITIONS (BIT00 10 B1115) 
100000 


SEQ 0016 
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000004 


000240 


177777 
000000 
000001 


000200 
000100 


100000 
040000 
020000 
010000 


000200 
000100 
000001 
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‘ 


E 
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30-MAY-79 15 

BASIC DEFINITIONS 

EQUIV B1106,B1T16 

-EQUIY BIT05,B115 

-EQUIV BIT04,BI114 

EQUIV B1103,B1T3 

EQUIV B1T02,B1T2 

EQUIV BITC1,BIT1 

EQUIV B1IT00,B110 

;*BASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC= 4 37 TIME OUT AND OTHER ERRORS 
RESVEC= 10 ;;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 sss 6DAT 

TRIVEC= 14 3; TRACE TRAP 

BPTVEC= 14 >; ;BREAKPOINT TRAP (BPT) 

1OTVEC= 20 >; INPUT/OUTPUT TRAP (I10T) **SCOPE®®* 
PWRVEC= 24 >;POWER FAIL 

EMTVEC= 30 > ;EMULATOR TRAP (EMT) **ERROR®*® 
TRAPVEC=34 :s""TRAP'' TRAP 

TKVEC= 60 3; TTY KEYBOARD VECTOR 

TPVEC= 64 s:TTY PRINTER VECTOR 
PIRQVEC=240 >;PROGRAM INTERRUP? REQUEST VECTOR 
: ny ‘etn DEFINITIONS APPLY TO THE GLOBAL SUBS 
SET= = 

CLR= 0O 

TRUE= 1 

> RCSR REGISTER BIT NAMES 
DONE = B1107 ; RECEIVER DONE 

lE= B1106 ; RECEIVER INTERRUPT ENABLE 

; RBUF REGISTER BIT NAMES 
ERROR= BIT15 ; ERROR INDICATOR 
ORERR= BI1T14 ; OVERRUN ERROR 

FRERR= B1113 ; FRAMINC ERROR 

PERR= BIT12 ; PARITY ERROR 

; TCSR REGISTER BIT NAMES 

RDY= B1107 > TRANSMITTER REACY 

]E= B1106 ; TRANSMITTER INTERRUPT ENABLE 
BREAK = 61100 ; SEND BREAK (CONTINUOUS SPACE) 


SEQ 0017 | 
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000174 
000176 
000200 


000100 
000102 


000046 
000052 


000024 


000044 


091000 


001012 
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000000 


000174 
000000 
000000 


000137 001570 


000100 
000102 
00C002 


000104 
000046 
013422 
000052 
000000 
000104 
001000 


001000 
000024 
000200 
000044 
001000 
001000 


000000 
001174 


600030 
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BASIC DEFINITIONS 


“s@thkeerererereeeerererreteeeereteeeeteteeeteketeeeteneeteeetaaetenes 


“SBITL TRAP CATCHER 


*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ''.#2,HALT™ 
S*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
“*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED vECTORS 


-=174 
DISPREG: .WORD 0 3; SOFTWARE DISPLAY REGISTER 
SWREG: «WORD 0 7; SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 

JMP @A#START ;;JUMP TO STARTING ADDRESS OF PROGRAM 

-=100 

Lb RETURN FROM ANY CLOCK INTERRUPTS 


-SBTTL ACT11 HOOKS 


"* @M@eweeareereeeereeeeteetneereetetreereeteteeternetetreetneteeeeneeeneeeteeee 


[HOOKS REQUIRED BY ACT11 
$SVPC=. 


+4 s SAVE PC 

74 

— :;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
. WORD 0 7:2)SET LOC.52 TO ZERO 

-=$SVPC >; RESTORE PC 


-=1000 
-SBTTL APT PARAMETER BLOCK 


‘sweeter teeter eeeeeeeeeeeeeee eee eeheeeeeeeeeeeeeeene 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


sl rerereerrererereeererreererentenetenerananenenenesvaneenteeeees 


-$X=. >; SAVE CURRENT LOCATION 
.=24 7;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 33FOR APT START UP 


~=44 3:POINT TO APT INDIRECT ADDRESS PNIR. 

SAPTHDR ;;POINT TO APT HEADER BLOCK 

.=.$K 7:RESET LOCATION COUNTER 
pLeeeeeeereneererenteeeereeeee KATA TTe eee TERE ETRE AER TTT e TERETE TTS 
>SETUP APT PARAMETER BLOCK AS DEFINED IN THE APi=PDP11 DIAGNOSTIC 
SINTERFACE SPEC. 


$APTHD: 

$HIBTS: .WwORD 0 >:TwO dIGH BITS OF 18 BIT MAILBOX ADDR, 
$MBADR: .WORD $MAIL >: ADDRESS OF APT MAILBOX (BITS 0-15) 
$TSTM: WORD 130. i TIM OF LONGEST TEST 

$PASTM: .WORD 140. sRUN TIME IN SECS. OF 1ST PASS ON 7 UNIT 


SUNITM: WORD 125. sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 


~ WORD $ETEND-SMALL /2 T;LENGIH MAIL BOX-E TABLE (WORDS) 


(QUICK VERIFY? 


SEQ 0018 


NLT 


— | 
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891 001174 
001174 
001176 
001200 
001202 
001204 
001206 
001210 
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001100 
000000 
0 


5 
00012 


000000 


000000 
0000C0 


MACY11 ar 
15:57 


000377 


eam -MAY-79 
MON TAGS 
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sy eeeteeerrererrerereinegrseerereteertereeetenereeneeneteneeArenete 


>*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


7*USED IN THE PROGRAM, 


.=1100 
SCMTAG: 3s; START OF COMMON TAGS 

~ WORD 0 
STSTNMA: .BYTE 0 >; CONTAINS THE TEST NUMBER 
$SERFLG: .BYTE 0 3; CONTAINS ERROR FLAG 
S$ICNT: WORD 0 s; CONTAINS SUBTEST ITERATION COUNT 
$LPADR: .WORD 0 >: CONTAINS SCOPE LOOP ADDRESS 
$LPERR: .WORD 0 >: CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 >; CONTAINS TOTAL ERRORS DETECTED 
S$ITEMB: .BYTE 0 >; CONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 >; CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 >: CONTAINS PC OF LAST: ERROR INSTRUCTION 
$GDADR: .WORD 0 >; CONTAINS ADDRESS OF ‘'GOOD' DATA 
$BDADR: .WORD 0 >; CONTAINS ADDRESS OF ‘'BAD' DATA 
$GDDAT: .WORD 0 >: CONTAINS ‘GOODS DATA 
$BDDAT: .WORD 0 >; CONTAINS ‘BAD’ DATA 

. WORD 0 > ;RESERVED--NOT TO BE USED 

WORD 0 
$AUTOB: .BYTE 0 : ;AUTOMATIC MODE INDICATOR 
SiNTAG: .BYTE ) >; INTERRUPT MODE INDICATOR 

~WORD 0 
SwWR: ~ WORD DSWR > ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP :; ADDRESS OF DISPLAY REGISTER 
$TKS: 177560 3: TTY KBD STATUS 
$TKB: 177562 >; TTY KBD BUFFER 
$TPS: 177564 si TTY: PRINTER STATUS REG. ADDRESS 
$TPB: 177566 srTTY PRINTER BUFFER REG. ADDRESS 
$NULL: .BYTE 0 >: CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 >: CONTAINS # OF FILLER CHARACTERS REQUIRED 
$FILLC: .BYTE 12 >; INSERT FILL CHARS. AFTER A “LINE FEED" 
$TPFLG: .BYTE 0 ge ae AVAILABLE’’ FLAG (BIT<07>=0=-YES) 
$TIMES: 0 >MAX. NUMBER OF ITERATIONS 
$ESCAPE:0 sESCAPE ON ERROR ADDRESS 
$BELL: .ASCIZ Fs a cal BS CODE FOR BELL 
$QUES: .ASTII sQUESTION MARK 
$CRLF: .ASCII nike >: CARRIAGE RETURN 
$LF: eASCIZ <12> ssLINE FEED 
sr eeeeeercererseerererseerreserereereeresensraeesateneresaeerenens 
.SBTTL APT MAILBOX-ETABLE 
SFAHHRSSKAKKAHASTHSSSLSHASHTSHSSHSKEHASEHTAHHKeKESAHHeeKeesseNess 
~EVEN 
$MAIL: >; APT MAILBOX 
$MSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
$FATAL: WORD AFATAL ;;FATAL ERROR NUMBER 
S$TESTN: .WORD ATESTN ;;TEST NUMBER 
$PASS: .WORD APASS 3:PASS COUNT 
$DEVCT: . WORD ADEVCT ;;DEVICE COUNT 
$UNIT:  .WORD AUNIT ::1/0 UNIT NUMBER 
$MSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 


SEQ 0019 | 
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001224 
001225 


001226 


001230 
001231 
001232 
001234 
001235 
001236 
001240 
001241 
001242 
001244 
001246 
001250 
001252 
001254 
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000000 


000000 


000 
000 


000000 


000 
000 
000000 
000 
000 
000000 
000 
000 
000000 
000000 
000069 


000000 
000000 


H 
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$MSGLG: 
SETABLE: 
SENV: 
SENVM: 
SSWREG: 
SUSWR: 
$CPUOP: 
‘* 


MS1: 
YP: 


ae enRne eo & 4-8 
—> 


ee ee 


$MADRI: 


SMAMS2: 
$MTYP2: 
$MADR2: 
$MAMS3: 
$MTYP3: 
$MADR3: 
SMAMS4: 
$MTYP4: 
$MADR4: 
$VECTI: 
$VECT2: 
$BASE: 

$DEVM: 

$ETEND: 
~MEXI7 


APT MAILBOX-E TABLE 
« WORD 


-BYTE 
BYTE 
«WORD 
. WORD 
«WORD 


«BYTE 
-BYTE 


- WORD 


-BYTE 
-BYTE 
. WORD 
-BYTE 
BYTE 
«WORD 
-BYTE 
-BYTE 
. WORD 
«WORD 
. WORD 
. WORD 
«WORD 


AMSGLG 


AENV 
AENVM 
ASWREG 
AUSWR 
ACPUOP 


AMAMS1 
AMTYP] 


AMADR 1 


AMAMS2 
AMTYP2 
AMADR2 
AMAMS3 
AMTYP3 
AMADR3 
AMAMS4 
AMTYPG 
AMADR4 
AVECT] 
AVECT2 
ABASE 

ADE VM 








> ;MESSAGE LENGTH 
>; APT ENVIRONMENT TABLE 
7 ENVIRONMENT BYTE 
> ENVIRONMENT MODE BITS 
>; APT SWITCH REGISTER 
;;USER SWITCHES 
3;CPU TYPE ,OPTIONS 
BITS 15-11=CPU TYPE 
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
11/70=06,PDQ=07,0=10 
11 10=REAL TIME CLOCK 
11 Q=FLOATING POINT PROCESSOR 
11 ®8=MEMORY MANAGEMENT 
3;HIGH ADDRESS,M.S. BYTE 
77MEM, TYPE,BLK&#1 
MEM. TYPE BYTE (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
>;HIGH ADDRESS,BLK#1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF 
>:HIGH ADDRESS,M.S. BYTE 
7; MEM. TYPE ,SLK&#2 
>;MEM.LAST ADDRESS, BLK&2 
>:HIGH ADDRESS,M.S.BYTE 
> MEM. TYPE BLK&#@3 
> 7MEM.LAST ADDRESS, BiKa3 
:;HIGH ADDRESS,M.S.BYTE 
> :MEM. TYPE ,BLK&@4 
>;MEM.LAST ADDRESS,BLK&S 
:: INTERRUPT VECTOR#1,BUS PRIORI TY#! 
>: INTERRUPT VECTOR#2BUS PRIORI T Ya? 
; BASE ADDRESS OF EQUIPMENT UNDER TEST 
7;DEVICE MAP 


B 
B 
B 


TYPE’ ABOVE 


SEQ 0020 | 
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001254 


001254 
001256 
001260 
001262 
001264 
001266 


001270 


001302 


001304 
001306 
001310 


001312 
001314 
001320 
001324 
001330 
001332 


001334 
001336 
001342 
001344 
001346 
001352 
001356 
0013600 
001364 
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176500 
000300 
177560 
000060 
173000 
173776 


000000 


000015 


C05000 
012720 
012720 
020027 
001371 
000412 


005009 
012701 


000137 


011636 
00034C 
001000 


000002 
000004 
001000 


000176 
001370 


] 
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ROK ?OINIER TABLE 


-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
>*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TAPLE IS PERTINENT. 


: *NOTE1: If $ITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERRPC). 
‘ *NOTE2: EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS: 
:e UN ::POINTS TO THE ERROR MESSAGE 

te DH “IPOINTS TO THE DATA HEADER 

i DT SSPOINTS TO THE DATA 

se DF “SPOINTS TO THE DATA FORMAT 

SERRIB: 

BASEO: 176500 :DEFAULT CH 0 BASE ADDR 

VECTO: 300 “DEFAULT CH 0 VECTOR 

BASE1: 177560 “DEFAULT CH 1 BASE ADDR (CONSOLE) 

VECTI: 60 “DEFAULT CH 1 VECTOR 

LOROM: 173000 “DEFAULT LO ROM ADDR 

HIROM: 173776 “DEFAULT HI ROM ADDR (256 WORDS) 


OPTION 1: 4K 000000 - 017776 
OPTION 2: 4K 020000 - 037776 


DLADD: 0O >CH ADDR UNDER TEST...LOADED BY ‘CYCLE’ 

RCSR: 0 >CH REGS UNDER TEST...LOADED BY ‘LOOP’ 

RBUF : 0 

TCSR: 0 

TBUF : 0 

DLVEC 0 :CH RECVR VECTOR UNDER TEST...LOADED BY ‘CYCLE 
CLKVEC= 100 sLINE CLOCK INTR VECTOR 

TMP 1: 0 ; TEMPORARY REGS 

IMP2: 0 

CARR: «ASCIZ <15> 


@eeeeeeeeeeeeeeeeeeeeeeeeeeeeneeteteerreeeeeeeeeeteeeeeeneeneeee 


STRAP CATCHER FOR OFF LINE USE ONLY. BEGIN PROGRAM WITH FRESH LOAD 


sp tereererererernereresereserreeeerenteneeneenanensessenesnenesees 


TRPCAT: CLR RO 
1$: MOV 


#INTSRV, (RO) + 

MOV #PR7,(RO)+ 
CMP RO,#1000 
BNE 1$ 
BR 3$ 
CLR RQ) 
MOV #2,R1 

2s: MOV R1,(RQ)¢ 
CLR (RO)* 
ADD #4,R) 
CMP RO,#1000 
BNE 

%$ CLR 176 
JMP START 


SEQ 0021 


CVMKAAO MXVI1A DIAG 
im 30-MAY-79 15:57 


CVMKAA.P 


001370 


001370 
001374 
001376 
001402 
001404 


001410 
001416 
001424 
001432 
001440 
001446 
001454 
001462 
001470 
001476 
001502 
001506 
001514 
001522 


001530 
001534 
001542 
001550 
001556 
001564 


001566 
001570 
001574 
001576 
001604 
001612 


001616 
001622 
001630 
001632 
001640 


001640 
001644 
001646 
001654 
001656 


001662 
001666 
001670 
001676 


012706 


37 


(AN LA OA OA MA A A AA 


012637 


005037 
132737 
001403 
012737 


005227 
001045 
022737 
001441 
104401 


005737 
001012 
123727 
001406 
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001100 
001140 
001100 
015432 


001522 


000004 
001570 
177570 
177570 
177777 


001576 
000176 
000174 
000004 


001202 
000200 


001216 


177777 
013422 
001724 
000042 
001214 


001140 
001142 


001215 


001140 


000042 


000001 
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ERROR POINTER TABLE 


START: 
~SBTTL 


INITIALIZE THE COMMON TAGS 


3;;CLEAR THE COMMON TAGS (S$CMTAG) AREA 


MOV #SCMTAG,RO ;3FIRST LOCATION TO BE CLEARED 
CLR (R6)+ 3; CLEAR MEMORY LOCATION 
CMP WSWR,R6O ;; DONE? 
te -6 ;;LOOP BACK IF NO 
WSTACK, SP 7;SETUP THE STACK POINTER 


OV 
SINITIALLZE A FEW VECTORS 


WSSCOPE ,QWIOTVEC ;;10T oo FOR SCOPE ROUTINE 


mov #340, aw LOTVEC+2 SSLEVEL 

MOV #SERROR ,AWEMTVEC 7:EMT VECTOR FOR ERROR ROUTINE 

MOV #340 ,QMEMIVEC*+2 ;;LEVEL 7 

MOV MSTRAP,A#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 

MOV #340, ,a#TRAPVEC*2;LEVEL 7 

MOV ASPWRON,QMPWRVEC ;;POWER FAILURE VECTOR 

MOV #340, ,aMPWRVEC+2 ;;LEVEL 7 

MOV SENDCT,SEOPCT 3; SETUP END-OF-PROGRAM COUNTER 

CLR $STIMES s: INITIALIZE NUMBER OF JTERATIONS 
CLR SESCAPE 3: CLEAR THE ESCAPE ON ERROR ADDRESS 


MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST 
MOV #., $LPADR >: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV #.,SLPERR ;;SETUP THE ERROR LOOP ADDRESS 


:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT 1S 
 TEQUAL TO A ‘'=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 


643: 
65$: 
66$: 


67$: 
.SBITL 


MOV Q#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 

MOV 464%, a#ERRVEC :;SET UP ERROR VECTOR 

MOV #DSWR,SWR ;: SETUP FOR A HARDWARE SWICH REGISTER 

MOV #DDISP,DISPLAY ;;:AND A HARDWARE DISPLAY REGISTER 

CMP #-1,aSWR si; TRY TO REFERENCE HARDWARE SWR 

BNE 66$ :;BRANCH IF NO TIMEOUT TRAP OCCURRED 
::AND THE HARDWARE SWR IS NOT = -1 

BR 65$ ;;BRANCH IF NO TIMECUT 

MOV #65%, (SP) SET UP FOR TRAP RETURN 

RT] 

MOV MSWREG, SWR s;POINT TO SOFTWARE SWR 

MOV #DISPREG,DISPLAY 

MOV (SP)+,aMERRVEC ;;RESTORE FRROR VECTOR 

CLR $PASS >; CLEAR PASS COUNT 

BIB MAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT 

BEQ 67$ 77 YES,USE NON-APT SWITCH 

MOV #SSWREG,SWP siNO,USE APT SWiTCH REGISTER 


TYFE PROGRAM NAME 


7: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 


~ SBITL 





INC t-1 srPIRST TIME? 
BNE 68% : BRANCH IF NO 
CMP #SENDAD ,a#42 sy ACT=<11? 
BEQ 68% ; BRANCH IF YES 
TYPE 69% sTYPE ASCIZ STRING 
of VALUE FOR SOFTWARE SWITCH REGISTER 
ToT a#42 ARE WE RUNNING UNDER XXDP/ACT? 
BNE 70% «BRANCH If YES 


CMP $SENV,@1 sc ARE WE RUNNING UNDER APT? 
BEQ 70% ;;BRANCH IF YES 


SEQ 0022 
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1047 001700 


1053 001722 


1055 001760 
1056 001760 
1057 001764 
1058 001766 
1059 001774 
1060 001776 


1062 002000 
1064 002004 


1075 002010 
1076 002012 
1077 00202C 


1079 002026 
1080 002034 


1682. 002036 


1084 002042 
1085 002044 
1086 002050 
1087 002052 
1088 002054 


1090 002056 
1091 002062 
1092 002064 
1093 002066 


1095 002070 
1096 902074 
1097 002976 
002100 
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023727 
001005 
104406 
000403 
112737 


000416 


005227 
001005 
123727 
001401 
104412 


004737 
012706 


000004 
012737 
012757 


032737 
001022 


012700 


010010 
020037 
001402 
005720 
000772 


012700 


104010 


020037 
001402 
005720 
000770 
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001140 000176 


000001 


177777 
001214 


011334 
001100 


000001 
000001 
000004 
017776 


011634 


017776 


011634 
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001134 


000001 


001160 
001200 


001252 
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GE 25 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


BNE 
GTSWR 
R 


B 71% 
708: MOVB #1, $AUTOB 
71$: 


CMP SWR,#SWREG 
71% 


++ SOF TWARE SWITCH REG SELECTED? 
;BRANCH IF NO 

SIGET SOFT-SWR SETTINGS 

3;SET AUTO-MODE INDICATOR 


;GET OVER THE ASCIZ 


BR 68$ 
5;69$: .ASCIZ <CRLF>*CVMXAAO MiyIIA DIAGNOSTIC *<CRLF > 


68%: 

INC #-) 

BNE 1$ 

CMPB SENV,#1 

EQ 1$ 

GTDEVM 
1$: JSR PC,SIZE 
RAMROM: MOV ASTACK,SP 


:1°ST TIME? 
7A 
iBR IF YES 

ELSE SHOW CURRENT DEVM & GET NEW 
SIZE THE MXVIT<-A 

;RESET STACK PIR 


-s@f#Peekeeeeeeteeteeeeeeeeeeretreeetereeeteeteeteeeeaeneteerereeeeeeeeeee 


s*TEST 1 RAM ADDRESS TEST 

o- 

7” WRITE ENTIRE MEMORY WITH ADDRESS AS DATA. 
3° READ ENTIRE MEMORY TO VERIFY. 

3* 


"Wee eteekteteereeeeeetereerereeeeeeteeteeeeeeetinntenrteeteteteretenee 


S11: SCOPE 


MOV #1,$TIMES 
MOV #1,$TESTN 
BIT #B1T2,$DEVM 
BNE TST2 
MOV #17775,R0 
1$ MOV RO, (RO) 
CMP RO,MAXMEM 
BEQ 2$ 
TST (RO)*¢ 
BR 1$ 
2%: MOV #17776,R0 
3$: CMP RO, (RO) 
BEQ 4% 
ERROR 10 
4$: CMP RO, MAXME M 
BEQ TS12 
TST (RO)* 
BR 3$ 


3:00 1 ITERATION 
3;SE1 TEST NUMBER IN APT MAIL BUX 


;BYPASS RAM TESTS? 
ssE01T FF VES 


s;ADDRESS REG 


;LOAD ADDRESS AS DATA 
;LAST ADDR? 

;BR IF YES 

;ELSE BUMP ADDR REG 


: VERIFY 

;READ & CHECK 

DATA NOT = ADDRESS 
sLAST ADDR? 


ooPMIT FF VES 
sELSE BUMP ADDR 


SEQ 0025 
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CVMXAAQ 1 get DIAG ye th 306(1063) 30-MAyY-79 
CVAKAA.P11 30-MAY-79 15:57 11 RAM ADDRESS TEST SEQ 0024 
1099 
1100 ppeeeeeenrecereereeererererererereeeteetenereeeeeeterrerenenenes 
102 s*TEST 2 RAM DATA & VOLITILITY TEST 
1103 :* WRITE ALL MEMORY TO BACYGROUND OF Ait 1°S. 
1104 3* TEST LOCATION FOR CORRECT BACKGROUND. 
1105 3* FLOAT O'S & COMPLEMENT THRU WORD. 
1106 3* RESET LOCATION TO BACKGROUND. 
1107 ;* REPEAT ABOVE 3 STEPS FOR EACH LOCATION. 
1108 7* WHEN ALL LOCATIONS TESTED, CHECK ENTIRE MEMORY FOR BACKGROUND PATTERN. 
1109 s* CHECK VOLITILITY BY WAITING MORE THAN 5 SEC & RECHECKING BACKGROUND PATI. 
saat ;* REPEAT ALL THE ABOVE FOR BACKGROUND PATTERN OF AiL O'S & FLOATING 1°S. 
1112 Lr eee eee eee Teen ee eeeeeereeeeneeeeeteeeeneneneeeeeeteeeeneneeetse 
1113 002102 000004 TST: SCOPE 
1114 0021046 012737 000001 001160 MOV #1,$TIMES 3:00 1 ITERATION 
3b, 002112 012737 000002 001200 MOV #2,$TESIN 3;SE1T TEST NUMBER IN APT MAIL BOX 
6 
1117 002120 032737 000004 001252 BIT #Bl12,$DEVM ;BYPASS RAM TESTS? 
SBS 002126 001145 BNE 25$ ;BR IF YES 
1120 002130 012737 177777 002554 MOV #-1,BKGND ;BACKGROUND = 1°'S 
1133 002136 012700 017776 218: MOV #17776,R0 ; ADDRESS 
1123 002142 013710 002554 1$: MOV BKGND, (RO) ;WRITE BACKGROUND 
1124 002146 020037 011634 CMP RO,MAXMEM ;LAST ADDR? 
1125 902152 001402 BEQ 2$ 
1126 002154 005720 TST (RO) + ;CLSE BUMP ADDR 
by 34 002156 000771 BR 1$ 
1129 002160 012700 017776 es: MOV #17776,R0 sRESET ADDR 
1130 002164 021037 002554 3$: CMP (RO) ,BKGND ;READ & CHECK 
1131 002170 001401 BEQ 4$ 
ty 002172 104011 ERROR 13 ;LOC DOES NOT = BACKGROUND 
11 
1134 002174 005737 002554 4$: TST BKGND :1f BKGND = 1°S, FLOAT O'S 
1135 002200 001002 BNE 5$ 
1136 002202 000261 SEC sELSE SET CARRY TO FLOAT 1°S 
1137 002204 000401 BR 6$ 
Hy 002206 000241 5$: CLC sFLOAT O°S 
11 
1140 002210 013737 002554 (C02560 6$: MOV BKGND ,SAVBK SAVE 
1141 002216 006037 002560 7$: ROR SAVBK ;BEGIN RCTATE 
1142 902222 013710 002560 MOV SAVBK, (RO) SWRITE IT 
1143 002226 021037 002569 CMP (RO), SAVBK sREAD & CHECK 
1144 002232 001401 BEQ 8$ 
1145 002234 104022 ERROR 22 :NO COMPARE 
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CVMXAA.P11 30-MAY-79 15 RAM DATA & VOLITILITY TESI SEQ 0025 
~ 1146 
1147 002236 005137 002560 8$: COM SAVBK ;D0 COMPLEMEMT 
1148 002242 013710 002560 MOV SAVBK, (RO) sWRITE IT 
1149 002246 011037 002556 MOV (RO), RDWRD sREAD IT 
1150 002252 023737 002556 002560 CMP ROWRD, SAVBY > SAME? 
1151 002260 001401 BEQ 9$ 
11e8 002262 104023 ERROR 235 ;NO COMPARE Of COMPLEMENT 
11546 002264 005137 002560 : 9$: COM SAVBK . ACKGROUND 
1155 002270 023737 002560 002554 CMP SAVBK ,BKGND sBACK TO ORiG. BACKGROUND? 
bs 002276 001407 BEQ 23% ;BR IF YES 
1158 002300 005737 002554 TST BKGND ;1F BKGND = 1, SET CARRY 
1159 002304 001002 BNE 22% 
1160 002306 000241 CLC sELSE CLEAR IT 
1161 002310 000742 BR 7% :D0 NEXT BIT 
1162 002312 000261 22%: SEC 
dyes 002314 000740 BR 7$ 
64 
1165 002316 013710 902554 23%: MOV SKGND, (RO) ;RESTORE ORIG BACKGROUND 
1566 002322 020037 011634 CMP RO,MAXMEM :LAST ADDR? 
1167 002326 0061402 BEQ 10¢ ;BR IF YES 
1168 002330 005720 TST (RO) + :ELSE BUMP ADDR 
be +4 002332 000714 BR 3$ 3& REPEAT 
1171 002334 104407 10$: CKSWR 
1172 002336 012700 017776 MOV #17776,R0 :SEE IF ENTIRE MEM STILL SAME RACKGROUND 
1173 002342 011037 002556 11$: MOV (RO) ,RDWRD READ 
1174 002346 023737 002556 002554 CMP RDWRD,BKGND 7 SAME ? 
1175 002354 001401 BEQ 12% 
ik 002356 104025 ERROR 25 > CHANGE IN BACKGROUND 
11 
1178 002360 020037 011634 12$: CMP RO,MAXMEM :LAST ADDR? 
1179 002364 001402 BEQ 13% 
1180 002366 005720 TST (RO)+ ;ELSE BUMP ADDR 
He 002370 000764 BR 118% :& DO ANOTHER 
11 
1183 002372 012737 002444 000004 138: MOV #16$,ERRVEC sWwAIT > 5 SEC TCO TEST FOR VOLITILITY 
4, 002400 012737 000200 000006 MOV #200, ERRVEC+2 ;SET UP TIMEOUT TRAP ADDR 
118 
1186 002406 013700 011634 MOV MAXMEM,RO 
1187 002412 062700 000002 ADD #2,R0 s THIS ADDR SHOULD GIVE TIMEQUT 
1188 
1189 002416 012701 000002 MOV #2,R) s]1TERATION CTR 
1190 002422 012702 177777 14$: MOV #-1,R2 
1191 002426 011010 15$: MOV (RO), (RO) sSHOULD TIMEOUT (DO MOV INSTEAD OF TS?) 
1192 002430 005720 TST (RO) + ;COME HERE IF NO TIMEOUT & BUMP ADDR 
1193 002432 020027 177776 CMP RO,#177776 sREACHED 32K? 
1194 002436 001373 BNE 15$ ;BR IF NO 
1195 002440 104042 ERROR 42 :CANNOT FIND ADDR TO TIMEOUT 
1196 
1197 002442 25%: 
1198 002442 000447 bn 1S$13 ssEx lt TEST 
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022626 
005392 


005301 
001362 


104407 
012737 
005037 


012700 


021037 
001401 
104026 


620037 
001402 
005720 
000767 


005737 


60503? 
000137 


005737 
001407 
104401 
000137 


000000 
000000 
000000 


1 30611063) 


000006 000004 
000006 
017776 
002554 


011634 


002554 


002554 
02136 


011614 


001310 
013334 
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T2 


168: 


17$: 


18$: 


19%: 


208: 


BKGND: 
RDWRD: 
SAVBK: 
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RAM DATA & VOLITILITY TES! 
CMP (SP)4+,(SP)¢ ;CLEAR STACK FROM TRAP 
DEC R2 
BNE 15% 
DEC R1 
BNE 14% 
CKSWR 
MOV WMERRVEC +2 ,ERRVEC 75 SEC UP. RESET TIMEOUT TRAP ADDR. 
CLR ERRVEC+2 
MOV #17776,R0 : TEST MEMORY FOR VOLITILITY 
CMP (RO), BKGND sREAD & CHECK 
BEO 18% 
ERROR 26 s;BACKGROUND CHANGE AFTER 5S SEC 
CMP RO,MAXMEM ;LAST ADDR? 
BEQ 19% 
TST (RO)+ ;ELSE BUMP ADDR 
BR 17% :&® DO ANOTHER 
TST BKGND ;BACKGROUND ALL 0°S? 
BEQ 20% 3BR IF YES 
CLR BK GND sELSE DO OPPOSITE BACKGROUND 
JMP rab) 
TST NOCHAN ;ANY CHANNELS TO BE TESTED? 
BEQ T$13 :;BR IF YES . 
TYPE , CARR 
JMP $EOP sELSE ALL DONE 
0 ;BACKGROUND 
0 sSTORE READ WORD HERE 
0 sROTATE BACKGROUND HERE 
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CVAKAA,P11 30-MAY-79 15:57 RAM DATA & VOLITILITY TES! SEQ 0027 © 


1235 
12% Sp eeeeeerercerceerserereererreeerererererenerenenerereeneeeesetes 
1237 SeTEST 3 ROM TESTS 
1238 > eeeeeererrerenrenererrerreerereerereretereeeeeeeeererererereees } 
1239 002562 000004 7513: SCOPE 
12460 002566 012737 000010 001160 MOV WIC, STIMES ::D0 10 ITERATIONS 
et 002572 012737 000003 001200 MOV #3, $TESIN ::SET TEST NUMBER IN APT MAIL #OX 
4 | 
12463 002600 037737 000002 001252 BIT #B111,$DEVM :BYPASS ROM TEST? | 
1244 002606 00:057 BNE TS14 ssEXI1T IF YES 
12465 002610 012737 011636 000004 MOV MINTSRV,ERRVEC ;SETUP TIMEOUT TRAP ADDR 
1246 002616 012737 060200 000006 MOV #200, ERRVEC+2 
4 
1248 ppetteeeerererereereerrerrerereeeteeterereneeeeeKeeeeeeenerereeetes 
1249 :TEST "LOROM' TO "HIROM' PRESENT 
1250 spteereererrereerereereretrerererreeeetreeeeeheneeeeeeneeeeeeneees 
1251 
1252 002624 013703 001264 Mov LOROM, R3 | 
1253 002630 005037 011644 3$: CLR INTFLG 
1254 002634 005713 TST (R3) S ACCESS | 
1255 002636 005737 011644 1ST INTFLG : TIMEOUT? 
1256 002642 001403 BEQ 4$ :BR IF NO | 
1257 002644 010337 002744 MOV R3,ADDR >FOR ERROR ANALYS!S 
er 002650 104007 ERROR 7 
| 
1260 002652 020337 001266 4$: CMP R3,HIROM >;ALL DONE? | 
1261 002656 001403 BEQ 5$ :BR IF YES 
1262 002660 062703 000002 ADD #2,R3 sELSE BUMP ADDR 
1263 002664 000761 BR 3$ | 
1264 | 
1265 sc teererrererererererereerererereteereeeenaneaeenesaeereseeeetees 
1266 -TEST THAT ROM CANNOT BE WRITTEN INTO 
1267 Sp teeeerererearerentaerererereeerrereeeseaeeeeeanesHasasesavenTenee | 
1268 | 
1269 002666 013703 001264 5$: MOV LOROM,R3 
1270 002672 005037 011644 6$: CLR INTFLG 
1271 002676 010013 MOV RO, (R3) sTRY TO WRITE INTO ROM | 
1272 002700 005737 011644 1S] INTFLG > TIMEOUT? 
1273 002704 001003 BNE 7$ “BR IF YES 
1274 002706 010337 002744 MOV R3,ADDR >FOR ERROR ANALYSIS 
1275 002712 104035 ERROR 35 
6 | 
1277 002714 020337 001266 ’$: CMP R3,HIROM TALL DONE? 
1278 002720 001403 BEQ 8% >BR IF YES | 
1279 002722 062703 000002 ADD #2,R3 sELSE BUMP ADDR 
1380 092726 000761 BR 6$ , 
1282 002730 012737 000006 000004 #$: MOY MERRVEC+2,ERRVEC ; RESTORE TIMEOUT VECTOR 
1283 002736 005037 000006 CLR FRRVEC#2 
1284 002742 000401 BR 1S14 SrEM IT TEST 
12 
1286 002744 000000 ADDR: ~WORD O >ROM ADDRESS WHERE ERROR OCCURED 
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13 ROM TESTS 


-@@rrreerereetrrerrereerrerererereeeeerereeeteenreeneteeeeeneeeeterete 


:*TEST 4 


CLOCK TESTS 


--wenrererrerterttrerrereeeerereteteretetreeetereeeeeeeeeeeteeeeneeeee 


1$14: 


4$: 


SCOPE 
MOV 
MOV 


. WORD 
WORD 


MOV 
MOV 
CLR 


«WORD 
. WORD 


#10, STIMES 3;D0 10 ITERATIONS 

#4 ,$TESIN ;;SET TEST NUMBER IN APT MAIL BOX 
106427 sHTPS 

200 sDIS*8LE INTERRUPTS 


MINTSRV,CLKVEC ;SETUP VECTOR AREA 
#200,CLKVEC#2 ;LOCKOUT OTHER INTERR 


INTFLG 

106427 sMTPS 

0 sALLOW CLOCK TO INTERR THRU INTS&¥V 
#BI1TO,$DEVM sCLOCK OPTION DISABLED? 
2% sBR IF YES 

#-1,R0 s TIMER 

RO 

1$ 

INTFLG sGOT INTERRUPT? 

4% sBR IF YES 

6 sNO CLOCK INTERRUPT 

4% 

#-1,R0 > TIMER 

RO 

3$ 

INTFLG :GO1T INTERRUPT? 

4$% ;BR IF NO 

34 sUNEXP. CLOCK INTERRUPT 
106427 sMIPS 

200 sDISABLE INTERR 

#102, CLKVEC sRESTORE CLOCK VECTOR AEA 
MRT], CLEVEC #2 

106427 pMTeS 

0 sENABLE INTERRUPTS 
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005037 
005037 
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012706 
y05757 
001404 
104401 
000137 


004737 
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123727 
091002 
000137 
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CLOCK TESTS 


MACY11 306(1063) 30-MAY-79 
15:57 14 
012312 SLU: CLR 
001206 CLR 
012314 CLR 
001100 LOOP: MOV 
011614 TST 
BEG 
001310 TYPE 
013334 JMP 
011646 1$: JSR 
001270 001272 MOV 
001270 001274 MOV 
000002 001274 ADD 
001270 001276 MOV 
900004 001276 ADD 
001270 001300 MOV 
000006 001300 ADD 
177777 MOV 
SOB 
RESET 
001204 INC 
012312 000001 (MPB 
BNE 
007264 JMP 


PHASE2 
$UNIT 
PICNT 
#STACK,SP 
NOCHAN 

1$ 

, CARR 

$EOP 
PC,CYCLE 
DLADD,RCSR 


DLADD ,RBUF 
#2,RBUF 


DLADD,TCSR 
#4,T1CSR 


DLADD, TBUF 
#6, 1BUF 


#-1,R0 

RO,. 

$DEVCT 
ee 


MODTST 


3 


INIT FOR TESTS 
; CONTAINS CHAN # UNDER TEST ( 0 OR 1 ) 


RESET STACK POINTER 
:ANY CHANNELS TO TEST? 


:BR IF YES 


sELSE ALL DONE 
sELSE SETUP MODULE AND CHANNEL 


:DELAY TO ALLOW ANY PREVIOUS XMIT TO 


sFINISH BEFORE RESET 


;DOING PHASE 2? 


:BR IF NO 





SEQ 0029 


es sts ~~ 
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CVMXAA.P11 30-MAY-79 1 ADDRESSABILITY SEQ 0030 | 
1365 pp ttereterrerererererereretererettereetereeetheeeneneeteterereeee 
138 eTEST 5 ADDRESSABILITY 
1368 te THIS TEST VERIFIES THAT ALL 4 REGISTERS OF THE CHANNEL UNDER TEST 
ts 44 3 RESPOND TO THEIR ADDRESSES. 

1371 1s weeeeeeneeeerererreeeeererereeeeererereteeerenereserereeereeees 
1372 003256 000004 1ST5: SCOPE 
1373 003260 012737 000002 001160 MOV #2,$TIMES ::D0 2 ITERATIONS 
ee 003266 012737 000005 001200 MOV #S,$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
1376 003274 9012737 011636 000004 MOV MINTSRV,ERRVEC ;SETUP TIMEOUT VECTOR 
+ ia 003302 012737 000340 000006 MOV #PR7,ERRVEC #2 
1379 003310 005000 CLR RO 
toa 003312 013701 001272 MOV RCSR,R1 
1382 003316 005037 011644 1$: CLR INTFLG 
1383 003322 005721 TST (R1)¢4 DARE TO TIMEOUT 
1384 003724 005737 911644 1ST INTFLG 01D 11? 
1385 003330 001401 BEQ 2$ :BR IF NO 
ae 003332 104001 ERROR 1 > TIMEOUT ON CHANNEL ADDRESS 
1388 003334 005200 2%: INC RO 
1389 003336 020027 000004 CMP RO, #4 ZALL DONE? 
fo 003342 001365 BNE 1$ ;8R IF NO 
1392 003344 012737 000006 000004 MOV #6, ERRVEC RESTORE TIMEOUT VECTOR 
4283 003352 005037 000006 CLR ERRVEC 42 
4 
1395 003356 032777 177477 175706 BIT #177477,aRCSR :CHECK THAT ALL UNUSED BITS ARE 0 
1396 003364 001401 BEQ 3$ 
ie 003366 104027 ERROR 27 :RCSR HAS UNUSED BITS SET 
1 
1399 003370 032777 007400 175676 38: BIT #7400, aRBUF 
1400 003376 001401 BEQ 4$ 
“et 003400 104030 ERROR 30 :RBUF HAS UNUSED BITS SET 
14 
1403 003402 032777 177476 175666 4$: BIT #177G76,aTCSR 
1404 003410 001401 BEQ 5$ 
6s 003412 104031 ERROR 31 ;TCSR HAS UNUSED BITS SET 
1406 
1407 003414 032777 177400 175656 5$: BIT #177490, aTBUF 
1408 003422 001401 BEQ 1+ sEMTT TF OK 


1409 003424 104932 ERROR 32 7 'BUF HAS ;UNUSED BITS SET 
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CVAKAA.P11 30-MAY=79 15:57 15 ADDRESSABILITY SEQ 0031 


141) sc, eeereerererererererrereretererererererereenteneneneeeraterereseee 


1412 3* THE FOLLOWING 3 TESTS TEST ALL ‘READ WRITE® BITS 
1413 pp eterererererrrrereereeterereteererereereteeteteeeeeerenereresere 
1414 
1415 
1416 ppetteeeeeerereereeeereerererererereeereeeeeeteteneeeneeeneeterene 
1417 :*TEST 6 BREAK = TCSR O SET, CLEAR, RESET 
* THIS BIT IS THE ONLY ONE IN THIS POSITION 
1419 ad THAT IS READ AND WRITE. 
1420 ppeteeererrrererereerertrrereerrererereeeteretetenrenentereeteres 
1421 003426 000004 1ST6: SCOPE 
1422 003430 012737 000010 001160 MOV #10,$TIMES ::00 10 ITERATIONS 
1423 003436 012737 000006 001200 MOV #6, $TESIN 3;SET TEST NUMBER IN APT MAIL BOX 


1425 003444 005737 012304 TST BRK ;BREAK DETECTION ENABLED? 
1426 003450 001403 BEQ 1$ ;BR IF NO 

1427 003452 005737 012310 TST CONSOLE ;ELSE ARE WE ON CONSOLE? 
1428 003456 001055 BNE TS17 scERLT WF VES 

1429 003460 1$: 

1430 ; SEE If 11 IS CLEAR 

1431 003460 LPADR 

1432 003460 012737 003466 001110 MOV #64$,SLPERR 

1433 003466 64%: 


1435 003466 If MBREAK SETIN @TCSR THEN 
1436 003466 032777 000001 175602 BIT #BREAK ,@TCSR 

1437 003474 001401 BEQ $1 

1438 ; BREA® DID NOT RESET IN TCSR 
1439 003476 104002 ERROR 2 

1440 003500 ENDIF 

1441 003500 $1: 


1443 > TRY 10 SET BREAK BIT 
1444 003500 LPADR 
1445 003500 012737 003506 001110 MOV #64$,$LPERR 
1446 003506 64$: 
1447 003506 . LET aICSR := @ICSR SET.BSY @BRE AK 
1448 003506 052777 000001 175562 BIS MBREAK ,ATCSR 
1449 : STUCK TO 0 
1450 003514 IF MBREAK NOTSETIN SITCSR THEN 
1451 003514 032777 000001 175554 BIT #BREAK,aTCSR . 
1452 003522 001001 BNE $2 
1453 : BREAK DID NOT SET IN TCSR 
1454 003524 104003 ERROR 3 
1455 003526 ENDIF 

1456 003526 $2: 


1458 > TRY 10 CLEAR A SET BIT 
1459 003526 LPADR 
146600 003526 012737 003534 001110 MOV #64%,$LPERR 

1461 003534 64$: 


1463 003534 Ley @ICSR := OICSR CLR BY @BRE Aw 
1464 003536 0462777 000001 175544 BIC MBREAK OICSR 

1465 : SHOULD HAVE CLEARED 

1466 005542 If MBREAK SETIN @TLSR HEN 


=< 
> 

w 
™N 
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1475 003554 
1476 003554 
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1479 003562 
1480 003562 


1482 003570 
1483 003574 
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032777 
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012700 
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175526 


001110 


175506 


175470 
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$3: 















BREAK - 


BIT 
BLa 


ERROR 4 


MOV 


ERROR 5 


G 
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TCSR O SET, 


#BREAK ,aTCSR 
$3 


CLEAR, RESET 
; BREAK DID NOT CLEAR IN TCSR 
ENDIF 


> NOW SEE JF RESET CLEARS IT 
LPADR 
#64%$,$LPERR 


LET @TCSR := @ILSR SET.BY @BRE Ak 
; ISSUE BUS RESET 


@BREAK ,aTCSR 


#-1,R0 :DELAY TO ALLOW ANY PREVIOUS xMIT 10 
RO,. ‘FINISH BEFORE RESET 
lf #BREAK SETIN @ICSR THEN 


#BREAK ,@TCSR 
$4 
; BREAK DID NOT RESET IN TCSP 


ENDIF 





sta 0032 | 
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003614 
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003650 
003656 
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003662 
003662 


003662 


093670 
003670 


003676 
003676 
003704 


003706 
003710 
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003710 
003716 
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003716 
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003/24 
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000904 
012737 
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000010 
000007 


003650 


000100 


003670 


000100 


0060100 


003716 


000100 


000100 


001160 
001200 


001110 


175420 


001110 


175400 


175372 


001110 


175352 


175344 


REAK = TCSR O SET, CLEAR, RESET 


s,eeereeerereerereerererrereeseserserererererensesenaeseerensaerest 


s*TEST 7 1E = TCSR 6 SET, CLEAR, RESET 


“s@etereteerkeretereeeeeterereeerertretreeetetteeteeeeeeeteneteteteeeenet 


1517: SCOPE 


MOV W10,STIMES 3:00 10 ITERATIONS 
MOV #7,$TESIN 3:SET TEST NUMBER IN APT MAIL BOX 
; USE PRIORiTY OF 7 
SETPR] #PR7 
; SEE IF IT IS CLEAR 
LPADR 
MOV #65$,$LPERR 
65$: 
IF MIE SETIN aTCSR THEN 
BI1 MIE, aTCSR 
BEQ $5 
; IE DIO NOT RESET IN TCSR 
ERROR 12 
ENDIF 
$5: 
5 TRY TO SET HE 611 
LPADR 
MOV #64$,$LPERR 
64$: 
LET @TCSR := @TCSR SET.BY @IE 
BIS MiE,@aTCSR 
s STUCK TO 0 
if MIE NOTSETIN @TCSR THEN 
BIT #lE,aTCSR 
BNE $6 
; XMIT DID NOT SET IN TCSR 
ERROR 15 
END | fF 
$6: 
; TRY 10 CLEAR A SET BIT 
LPADR 
MOV #64, S$ LPERR 
643: 
LET aTCSR := @TCSR CLR.BY Mit 
BI¢ WIE, aTCSR 
; SHOULD HAVE CLEARED 
If MIE SETIN @TCSR THEN 
BIT @lE,aTCSR 
BEQ $7 
XMIT DID NOT CLEAR IN TCSR 
ERROR 14 
ENDIF 
$7: 


>; NOW SEE ITF RESET CLEARS 11 
LPADR 


SEQ 0033 







CVMKAA.P11 


003736 
003744 


003744 
003744 


003752 
003754 
003754 
003762 


003764 
003766 
003766 


012737 003744 


052777 000100 
000005 


032777 000100 
001401 


104015 


001110 


175324 


175314 












| 
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JE = TCSR 6 SET, CLEAR, RESET 


MOV 964%, SLPERR 
BIS WIE, aTCSR 
RESET 

yr gigas 
ERROR 15 


LET @TCSR := @TCSR SET.BY MIE 
; ISSUE BUS RESET 
If MIE SETIN @TCSR THEN 


XMIT DID NOT RESET IN TCSR 


ENDIF 





SEQ 0034 | 





CYMKAAQ MXVITA DIAG 
CVAKAA.P11 


NS NSN NN NSS 


PAPA AAN ANN 
~“N 
ONO YW EW 


w 
~ 
o 


093766 
003770 
003776 


004004 
004004 
004012 


004012 
004012 
004020 


004022 
004924 
004024 


004024 
004024 
004032 
004032 
004032 


004040 
004040 
004046 


004050 
004052 
004052 


004052 
004052 
004060 


004049 
004060 


094066 
004066 
004074 


004076 
004100 
004100 


004100 
004100 


30-MAY-79 


012737 


032777 
001401 


104035 


012737 
052777 
032777 


001001 
104036 


012737 


042777 


032777 
001401 


104037 


012737 


MACY11 30G(1063) 30-MAY-79 
17 IE 


15:57 


040010 
900010 
004012 


000100 


004032 


000100 


000100 


004060 


000100 


000160 


004106 


001160 
001200 
001110 


175252 


601119 


175232 


175224 


001110 


175204 


175176 


001110 


J 
15:58 PAGE 37 
- TCSR 6 SET, CLEAR, RESET 


Sp ereeeereererereeeetereereeettereeereeerenteeenetereeeeeeeetetes 


SeTEST 10 


IE = RCSR 6 SET, CLEAR, RESET 


THAT IS READ AND WRITE. 


THIS BIT IS THE ONLY ONE IN THIS POSITION 


,, eater terererereeereerrrrereeereeetteereneneteeeeeeneeaeereeeeee 


1$110: 


64%: 


$11: 


643%: 


$12: 


643: 


$13: 


IN APT MAIL BOX 


MIE SETIN ORCSR THEN 


; IE DID NOT RESET IN RCSR 


@RCSR := @RCSR SET.BY MIE 


; STUCK 10 0 


MIE NOTSETIN @RCSR THEN 


; IE DID NOT SET IN RCSR 


SCOPE 
MOV #10, $TIMES ::D0 10 ITERATIONS 
MOV #10. $TESTN >:SET TEST NUMBER 
: SEE IF IT IS CLEAR 
LPADR 
MOV #64$,$LPERR 
IF 
BI! #IE,aRCSR 
BEQ $11 
ERROR 35 
ENDIF 
: TRY TO SET IE BIT 
LPADR 
MOV #64$,$LPERR 
LET 
BIS #1E,aRCSR 
"oe 
BIT #I1E,@RCSR 
BNE $12 
ERROR 36 
ENDIF 
: TRY TO CLEAR A SET BIT 
LPADR 
MOV #64$,$. PERR 
LET 
BIC WIE, @RCSR 
Sy 
BIT #IE,ARCSR 
BEO $13 
ERROR 37 , 
ENDIF 
: NOW SEE IF RESET CLEARS 
LPADR 
MOV #648, S$ LPERR 


@RCSR := ARCSR CLR.BY MIE 


SHOULD HAVE CLEARED 
WIE SETIN QRCSR THEN 


; IE DID NOT CLEAR IN RCSR 


—_ 


] 


SEQ 0035 


CVMKAAO MXV11A_ DIAG 
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004106 


004106 
004106 


004114 
004116 
004116 
004124 


004126 
004130 
004130 
004130 
004136 
004144 
004146 


004150 





r 
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30-MAY-79 15:57 


052777 
000005 


032777 
001401 


104040 


012737 
032777 
001002 
104042 


000005 


000100 


000100 


004136 
000200 


175156 


175146 


001110 
175132 


64$: 


1$: 


JE = RCSR 6 SET, CLEAR, RESET 


LET @RCSR := @RCSR SET.BY #IleE 


315 #IE,@RCSR 
; ISSUE BUS RESET 
RESET 
IF MIE SETIN @RCSR THEN 
BIT #1E,aRCSR 
BEO 14 
: IE DID NCT RESET IN RCSR 
ERROR 40 
ENDIF 
MOV #1$,$LPERR 
:XMIT RDY SHOULD BE SET BY RESET ABOVE 
BIT MRDY,aTCSR 
BNE TST11 s<E RET DF SED 
ERROR 42 
RESET ALLOW LOOPING ON ERROR 


SEQ 0036 
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004152 
004154 
004162 


004170 
004174 
004176 
004176 
004202 
004202 


004202 
004202 
004206 
004206 


004212 
004212 


004216 
004222 
004224 
004226 
004230 


004232 
004236 
004242 


004244 
004244 
004250 


004252 
004252 
004260 


004262 
004262 


30-MAY-79 


000004 
012737 
012737 


005737 
001077 


005037 


005037 
005037 


105077 


004537 
001276 
000200 
104066 
000461 


105077 


10577? 
100375 


105077 


000240 


032777 
001404 


012737 


1 eeakitetases” 


000010 001140 
000011 601200 


012310 


004 366 


004370 


004372 


175062 
012512 


175042 
175034 


175030 


000200 175016 


177777 004370 


* MAY-79 


L 
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z 


JE = RCSR 6 SET, CLEAR, RESET 


; eereereeerrrrerererereretureaereeretenetareneneereteneeeeeeeere 


SeTEST 11 
*@ 


$1 


ie 


$15: 


SCOPE 
MOV 
MOV 


TST 
BNE 


CLR 


CLRB 


R 
TCSR 
RDY 

ERROR 
BR 


CLRB 
TSTB 
BPL 


CLRB 


MOV 


66 


TEST THAT XMIT RDY = TCSR 


7 = CLEARS 


WHEN TBUF IS LOADED WITH A CHARACTER 
AND THAT !T SETS WITHIN A REASONABLE AMOUNT OF TIME. 


-s@Peeeetertettererereterertterererterereneeeeeteeeteeeeetetetaeneneeneeese 


PASS := #0 ;INIT COUNT OF TIMES THRU 


TART OF LOOP 
MAX OF 2 TIMES THRU 


#10, $TIMES 3:00 10 ITERATIONS 
#11,$TESIN :;SET TEST NUMBER IN APT MAIL BOX 
CONSOLE ;ARE WE ON CONSOLE? 
TST12 SSERLT. oF WES 
LET 
PASS 
LOOP 2S 
LET ERRFLG := #0 
ERRFLG 
LET EXFLG := #0 
EXFLG 


; LOAD TBUF WITH ONE CHARACTER 


; WAIT FOR READY TO SET 
; (SHOULD BE VERY SHORT 
; SINCE UART DOUBLE BUF 


aTBuF 


WAIT 
FERS ITS INPUT) 


;SEND A CHA 


RACTER 


LET @1BUF :B= #0 


R5, TIMER ;WAIT FOR XMIT READY 


TST12 s:EXIT TEST 


aTBUF ;SHIP °“ "ST CHAR 


a1CSR sWAIT FOR RDY 


1$ 
: LOAD TBUF WITH A SECOND CHARACTER (TO DOUBLE BUFFER) 
: CHECK IMMEDIATELY THAT RDY IS CLEAR 
> AND THEN WAIT FOR IT TC SET 
sSEND SECOND CHARACTER 
LET @TBUF :B= #0 
alBUF 
NOP ; GIVE IT TIME TO CLEAR 
> RDY SHOULD HAVE CLEARED UPON 
: RECEIPT OF A CHARACTER 
1F @RDY SETIN @TCSR THEN 
#RDY,@TCSR 
$17 
> RDY DID NOT CLEAR IN TCSR 
tWILL RESULT IN ERR 67 LF FAILS 
LET ERRFLG := @SET 
SET, ,ERRELG 


:XMIT RDY DID NOT SET IN TCSR 


) 
cl 


SEQ 0037 


EE EERRREnEn renner ene er aman ine alee ae ae 
m 3 
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CVAXAA.P11 30-MAY-79 15:57 TEST THAT XMIT RDY - TCSR - CLEARS SEQ 0038 
1696 ; DEFER ERROR TYPEOUT 
1697 
1698 004270 ELSE 
1699 004270 000406 Sh $20 
1700 004272 $17: 

1701 004272 004537 012512 JSR R5,TIMER sWAIT FOR XMIT READY 

1702 004276 001276 TCSR 

1703 004300 000200 RDY 

1704 004302 104070 ERROR 70 sXMIT RDY DID NOT SET IN TCSR 
48 64 004304 000433 Bk TST12 srEXIT TES? 

1707 004306 ENDIF ; OF DEFERED ERROR CALL 
1708 004306 $20: 

1709 004306 IF ERRFLG EQ #SET THEN 

1719 004306 023727 004370 177777 CMP ERRFLO, MST 

1711 004314 001013 BNE $21 

1712 004316 LET PASS := PASS + #1] 

1713 004316 005237 004366 INC PASS 

1714 004322 IF PASS GT #1 THEN 

1715 004322 023727 904366 000001 CMP PASS,#1 

1716 004330 003404 BLE $22 

1717 ; CALL ERROR IF 2ND TRY 
1718 ;ON XMIT RDY NOT CLEARING 
1719 004332 104067 ERROR 67 

1720 004334 LET EXFLG := #SET 
1721 004334 012737 177777 004372 MOV MSET,EXFLG 

1722 004342 ENDIF 

1723 004342 $22 

1724 004342 ELSE ; NO ERROR 
1725 004342 000403 BR $23 

1726 004344 $21: 

1727 004344 LET EXFLG := #SET 

1728 004344 012737 177777 004372 MOV MSET,EXFLG 

1729 004352 ENDIF 

1730 004352 $23: 

1731. 004352 EXIF EXFLG EQ #SET 

1732 004352 023727 004372 177777 CMP EXFLG,#SET 

1733 004360 001401 BEQ $16 

1734 004362 ENDLOOP 

1735 004362 000707 BR $15 

1736 004364 $16 

48 4 004364 000403 BR +10 sENITT VEST 

1739 004366 000000 PASS: 0 

1740 004370 00C000 ERRFLG: 0 

1741 0094372 000900 EXFLG: 0 


al 
































CVMXKAA.P 


CVAKAAO MXVITA_DIAG 
Pil 30-MAY=79 15:5 


004374 
004376 
004404 


004412 
004416 
004420 
004424 
004426 
004426 
004434 


004434 
004434 


004440 
004444 
004446 
004450 
004452 


004454 
004454 
004462 


004462 
004464 
004464 
004472 


004474 
004476 
004476 


000004 
012737 
012737 


005737 
001027 
005737 
001024 


012737 


105077 
004537 
001272 
000200 


104071 
000411 


012737 


000005 


032777 
001401 


104072 


000010 
000012 


012306 
012310 


004434 


174640 
012512 


004462 


000200 


weed} eins cat” 


001160 
001200 


001110 


001110 


174600 
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4 
TEST THAT XMIT RDY = TCSR 7 = CLEARS 


--wetrereerrererrterereteererertetereeeteeeeeeeeeeeteteeeeeteeeeeee 


s*TEST 12 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) 
-f 


RESULTS IN DONE SETTING WiTHIN A REASONABLE AMOUNT OF TIME 
AND THAT RESET CLEARS THE BIT. 


A pereeererererrerekeeeeteeteteereeeeeeeeeeeeteneteeheneeeteeneees 


1112: 


64$: 


SCOPE 
MOV #10, STIMES ;;D0 10 ITERATIONS 
MOV #12,$TESIN 3;SET TEST NUMBER IN APT MAit BOX 
TST WRAP ;DOING DATA WRAP TESTS? 
BNE TS113 ;;EXIT IF NO 
TST CONSOLE ;ARE WE ON CONSOLE? 
BNE TS113 gsERT1 IF YES 

LPADR 
MOV #64%,$LPERR 

; SEND A CHARACTER AND LET IT WRAP AROUND 
LET @TBUF :B= #0 
CLRB aTBuF 
JSR RS,TIMER ;WAIT FOR RECV DONE 
RCSR 
DONE 

ERROR 7) ;RECV DONE DID NOT SET IN RCSR 
BR TS113 ScEMIT TEST 

LPADR 
MOV #65$,$1.PERR 

> NOW THAT IT IS SET SEE IF IT CAN BE RESET 
RESET 
IF @DONE SETIN @RCSR THEN 
Bll #DONE ,@RCSR 
BEQ $24 
; DONE DID NOT RESET IN RCSR, 

ERROR 72 


ENDIF 
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004476 
004500 
004506 


004514 


004530 
004536 


004536 
004536 


004542 
004546 
004550 
004552 
004554 


004556 
004556 


004562 
004562 
004570 
004572 


004574 
004574 


30-May-79 


000004 
012737 
012737 


005737 


001022 
012737 


105077 


004537 
001272 
900200 
104073 
000407 


117700 


032777 
001401 


104074 


000010 
000013 


012306 
012310 


004536 


174536 
012512 


174512 


000200 


1 306(1063)_ 


001160 
001200 


901110 


174502 








oe 79 15:58 PAGE 42 
TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED! 


Sy eteeeeererrererererrererererereretentrerereneneetereeeerereTeeee 


>eTEST 13 TEST THAT DONE IS CLEARED BY READING RBUF 


-“-@eterertererterererereterrerererrrereteeerteteteteteeeteteteteteeees 


7$113: SCOPE 


MOV #10, STIMES ;;D0 10 ITERATIONS 
MOV #13,$TESIN 7:SET TEST NUMBER IN APT MAIL BOX 
TST WRAP ;DOING DATA WRAP TESTS? 
BNE TST14 ;;EXIT IF NO 
TST CONSOLE ;ARE WE ON CONSOLE? 
BNE TST14 ;cEXIT IF YES 
LPADR 
MOV #64$,SLPERR 


64$: 
; OUTPUT A CHARACTER AND WAIT FOR DONE TO SET. 
; OUTPUT A CHARACTER 
LET @TBUF :B= #0 


CLRB aTBUF 
JSR R5,TIMER sWAIT FOR RECV DONE 
RCSR 
DONE 
ERROR 73 ;RECV DONE DID NOT SET IN RCS 
BR TST14 scEMIT TEST 


; NOW THAT IT IS SET LETS SEE IF READING THE 
>; BUFFER CLEARS DONE. 
READ BUFFER 


LET RO :B= @RBUF 
MOVB ARBUF ,RO 


IF #DONE SETIN @RCSR THEN 


BIT #ODONE ,ARCSR 
BEQ $25 

;DONE DID NOT CLEAR IN RCSR 
ERROR 74 


; SET 11 BACK 10 CONTINUE 
END IF 
$25: 


SEQ 0060 


CVMXAAQ + ialiho D'AG MACY11 epee 30-MAY-79 15:58 PAGE 43 
CVAKAA.P11 T1-MAY=79 15:57 13 TEST THAT DONE IS CLEARED BY READING RBUF SEQ 0041 


1822 *+@eeteeereerrrrerrrereringnegtereeetererereeeeeereteneteeeeeeeeeeeeee 


1823 eTEST 14 TEST THE OVERRUN & ERROR BITS = RBUF 14 

1824 + eeeeeerereereereeeerererererererererereneTRetererereneeeeeeeeee 
1825 004574 000004 7S114: SCOPE 

1826 004576 012737 000010 001160 MOV M10, STIMES 3:00 10 ITERATIONS 

1827 004604 012737 000014 001200 MOV WIG,STESIN 3;SET TEST NUMBER IN APT MAIL BOX 


1829 004612 005737 012306 TST WRAP ;DOING DATA WRAP TESTS? 
1830 004616 001100 BNE TS115 sc EXIT IF NO 

1831 004620 005737 012310 TST CONSOLE ;ARE WE ON CONSOLE? 
1832 004624 001075 BNE TST15 ScEMIT IF YES 


1834 004626 LPADR 

1835 004626 012737 0046634 001110 MOV #64%,S$LPERR 

1836 004634 64%: 

1837 sOUTPUT 2 CHARACTERS 

1838 >THIS SHOULD AN CAUSE OVERRUN ERROR. 


1840 sOUTPUT 1 CHARACTER 
1841 004634 LET @TBuUF :B= #0 
1842 004634 105077 174440 CLRB a1 But 


1844 004640 004537 012512 JSR RS,TIMER ;wAIlT FOR RECV DONE 

1845 004644 0C1272 RCSR 

1846 004646 000200 DONE 

1847 004650 104016 ERROR 16 sRECY DONE DID NOT SET IN RCSR 
1848 004652 000462 BR TST15 SoEMLT TEST 


1850 ;OUTPUT 2ND CHARACTER 
1851 004654 LET @TBuUF :B= #0 

1852 004654 105077 174420 CLRB aTBut 

1853 004660 004737 012630 JSR PC,WAIT 3LET OVERRUN HAPPEN 


1855 s:READ BUFFER AND ERROR BITS 
1856 004664 LET R& := @RBUF 
1857 004664 017704 174404 MOV @RBUF RS 


1859 s17 DIDN'T SET 

1860 004670 iF #ORERR nates tin R4 THEN 
1861 004670 032704 040000 Bil MORERR RG 

1862 004674 001002 BNE $26 

1863 sORERR DID NOT SET IN RBuF 
1864 004676 104101 ERROR 101 


1866 sNO USE COMPOUNDING ERRORS 
1867 0046700 000447 bh T$115 ssEnit Tes 

1868 004762 ENDIF 

1869 004702 $26: 


1871 sNOW SEE JF ERROR BIT SET WITH OVERRUN ERROR: 
1872 004702 LPADR 

1873 004702 012737 004710 0%*110 MOV #64$,$LPERR 

1874 004710 64%: 

1875 004710 ]f @MERROR NOTSETIN 8G THEN 
1876 004710 032704 100000 BIT MERROR RG 
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004714 


004716 


004720 
004722 
004722 


004722 
004722 
004730 


004730 
004730 
004736 


004740 


004742 
004744 
004744 


004744 
004744 
004752 


004752 
004752 


004756 
004762 
004764 
004766 
004770 


004772 
094772 
005000 


005002 


005004 
005006 
005006 


MACY11 306(1063) ' 
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001902 


104102 


000437 


012737 


032777 
001002 
104103 
C00426 


012737 


105077 


004537 
001272 
000200 
104020 
000413 


032777 
001402 
104104 


000405 


004730 


040000 


004752 


174322 
012512 


040000 


001110 


174336 


001110 


174274 


$27: 


64$: 


$30: 


64$: 


Dd 
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TEST THE OVERRUN & ERROR BITS = RBUF 14 


BNE $27 

;ERROR DID NOT SET IN RBuUF 
ERROR 102 

;cWHEN ORERR SET. 

3GFT OUT NOW. 
BR TS§115 srEMI1T TEST 

ENDIF 
LPADR 

MOV #64%,$LPERR 


;CHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 
IF #ORERR NOTSETIN @RBUF THEN 


BIT MORERR,@RBUF 
BNE $30 
s;READING RBUF CLEARED ORERR. 
ERROR 103 
sSKIP REST OF TEST 
BR TSTTS ssn? TEST 
ENDIF 
LPADR 
MOV #64%,$LPERR 
;READING RBUF ABOVE SHOULD ENABLE ERROR TO BE CLEARED 
;BY NEXT TRANSFER, 
sNOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 
;SEND A CHARACTER AROUND. 
LET a@TBur :B= #0 
CLRB aTBuF 
JSR R5,TIMER ;WAIT FOR RECV DONE 
RCSR 
DONE 
ERROR 20 sRECV DONE DID NOT SET IN RCSR 
BR 1S$115 ssEM1T TEST 
IF MORERR SETIN QRBUF THEN 
BIT #ORERR,@RBUF 
BEQ $41 
sORERR DID NOT CLEAR IN RBUF 
ERROR 104 
sTAPTER RECEIVING ANOTHER (HAR 
sSKIP AROUND REST 
BR 1$115 ssEMIT TEST 


ENDIF 


SEQ 0042 











CVMXAA.P11 
1933 005006 
1934 005006 
1935 005014 
1937 005016 


1939 005020 
005020 
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032777 
001401 


104105 


MACY11 
30-MAY=-79 15:57 


100C00 


306(1063)  30-MAyY 
114 


174260 


E 
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TEST THE OVERRUN & ERROR BITS = SRUF 14 


IF MERROR SETIN @RBUF THEN 


Bil WERROR ,ARBUF 
BEQ $32 

;ERROR DID NOT CLEAR IN RBUF 
ERROR 105 


ENDIF 





SEQ 0043 
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005026 
005022 
005030 


005036 


005042 
005046 


005102 


005104 
005104 
005112 


005124 
005124 
005132 
005136 
005140 
005142 


005144 
005144 
005152 
005154 
005160 
005160 
005166 


005170 


005172 


000004 
012737 
012737 


005037 


013703 
062703 
012723 
012713 


012737 


004537 
001276 
000200 
104066 
000453 


042777 


052777 
004537 
011644 
104106 
000433 


023737 
001007 
004737 


023727 
003401 


104107 


000010 
000015 


011644 
001302 
000004 
011636 
000340 
005070 


012512 


000100 


600100 
012566 


012310 


012630 


011644 


001160 
001200 


001110 


1741604 


174144 


000000 


000001 


tite 
:eTe 


-*@®e 


1511 


$34: 
$33: 


F 
TEST THE OVERRUN & ERROR BITS - RBUF 14 
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eeeerrererrererereerereeeeeeeeeeerereeeeeeeeeeeeeeeenereeeee 
$1 15 TRANSMITTER INTERRUPT LOGIC TEST 

LOGICALLY THIS IS 4 SEPARATE TESTS 

A) DOES TRANSMITTER INTERRUPT LOGIC WORK 

B) AT PRIORITY OF 0 

C) AND ONLY ONCE 

D) BUT NOT WITH INTERRUPT ENABLE CLEAR 


eeerererrererrererererernereetereteereneeeereeneeteeteteeetaeeeenese 


S: SCOPE 
MOV #10,$TIMES 3:00 10 ITERATIONS 
MOV WIS, STESIN 3:SET TEST NUMBER IN APT MAIi BOX 
CLR INTFLG 
MOy DLVEC,R3 
ADD #4 ,R3 3GET XMIT VECT ADDR 
MOV MINTSRV,(R3) + 
MOV -#PR7,(R3) 
LPADR 
MOV #64%,$LPERR 
RS,TIMER sWAIT FOR XMIT READY 
TCSR 
RDY 
ERROR 66 sXMIT RDY DID NOT SET IN TCSR 
BR TST16 <sE0TF TEST 
sCLEAR INTERRUPT ENABLE 
LET @TCSR := OICSR CLR.BY @le 
BIC WIE, @TCSR 
SETPRI] #PRO sSET Et 10-9 
sNOW SET I.E. BIT 
LET @TCSR := @TCSR SET.BY @le 
BIS #IE,aTCSR 
JSR R5,TIMER) *SEE IF FLAG SETS 
INTFLG 
ERROR 106 sINTERR FLAG DID NWOT SET 
BR TST16 srEMIT TEST 
sBYPASS THIS PART IF CONSOLE 
1— CONSOLE EQ 0 THEN 
CMP CONSOLE ,O 
BNE $33 
JSR PC WALT sLET POSSIBLE 2°ND INTERR OCCUR 
sDID EXACTLY 1 INTERRUPT OCCUR 
IF INTFLG GT @1 THEN 
CMP INTFLG, #1 
BLE $44 
STRANSMITTER INTERRUPTED TWICE 
ERROR 107 
ENDIF 
tNDI§ 


SEQ 0044 
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005172 
005172 
005200 


005200 
005200 


005206 
005206 


005212 
005212 


005216 
005222 
005226 
005230 
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012737 


042777 


005037 


005077 


004737 
005737 
001401 
104110 
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005200 001110 


000100 


011644 


174062 


012630 
011644 


174070 


-79 


MOV 


BiC 


G 
15:58 PAGE 47 
TRANSMITTER INTERRUPT LOGIC TEST 


s INTERRUPT WITHOUT INTERRUPT ENABLE SET 
LPADR 


#64, SLPERR 


WIE, aTCSR 


INTFLG 


a1But 


PC WAI? 
INTFLG 
~*4 
110 


;CLEAR INTERRUPT ENABLE 
LET @TCSR := @TCSR.CLR.BY @IE 


sCLEAR "INTERRUPT OCCURED’ FLAG 
LET INTFLG := #0 


:NO INTERRUPTS SHOULD OCCUR, PSw STILL AT O. 
“DARE I! TO HAPPEN 


LET @TBUF := #0 
;SEE IF INTERR FLAG EVER SETS 


_—_;BAa_1£_NO 
SINTERR FLAG OCCURED WiTH Tf DISABLED 


SEQ 0045 






CVMKAAQ MXVITA 
CVMAKAA,P1) 


2025 005232 
2026 005234 
2027 005242 


2029 005250 
2030 005254 
2031 005256 
2032 005262 


2035 005264 
2036 = 005270 
2037 005274 


2040 005300 
2041 005300 
2042 005306 
2043 005306 
2044 005506 


2046 005312 
2047 005312 
2050 005320 
2053 005332 
2054 005332 
2056 005336 
2057 005342 
2058 005344 


2059 005346 
2060 005550 


2063 005352 
2004 005552 
2066 005360 


20609 005570 
2071 005372 
005576 





























DIAG 
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000004 
012737 
012737 


005737 


012737 


0605037 


042777 


105677 


004537 
001276 
000200 
104066 
000445 


052777 


004537 
011644 
104111 
000435 


004737 


000010 
000016 


012306 
012310 


001302 
011636 
900346 


005306 


011644 


000100 


173742 
012512 


000100 
012566 


012630 


09116C 
001200 


001110 


173752 


173712 
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TRANSMITTER INTERRUPT LOGIC TEST 


-:@ertereererrrrerererereerereteteteeneteeeeeeeeteeeeeeeeteetenet 


s*TEST 16 RECEIVER INTERRUPT LOGIC TEST 
7f THIS TEST COVERS ALL OF THE RECEIVER 
Hi SIDE OF THE INTERRUPT LOGIC IN 
:¢ CHARACTER MODE. 
;,teteeerereerrererererererereeerereeeeteeereeeeeeeneeneteeeeeree 
TST16: SCOPE 
MOV MIO, STIMES 3:00 10 ITERATIONS 
MOV WI6,STESIN 3;SE1 TEST NUMBER IN APT MAIL BOX 
TST WRAP sDOING DATA WRAP TESTS? 
BNE TSI1¥ sEK1T TF ONO 
1ST CONSOLE ;ARE WE ON CONSOLE? 
BNE TS117 SSRi) FF ves 
;CLEAR INTERRUPT OCCURED FLAG 
3SET UP RECEIVER INTER. VECTOR 
MOV DLVEC,R! 
MOV MINTSRV,(R1)¢ 
MOV #PR7,(R1) 
sPRIORITY O AND MULTIPLE INTERRUPT TEST. iE 
LPADR 
MOV #648, $LPERR 
64%: 
LET INTFLG z= #0 
CLR INTFLG 
;CLEAR INTERRUPTS 
LET @RCSR := ARCSR CLR.BY @IE 
BIC WIE, aRCSR 
> CHANGE PRIORITY 
seal @ 
SETPRI #PRO 
;SEND A CHARACTER 
LET @TBUF :8- #0 
CLRB aTBut 
JSR R5,TIMER sWALT FOR XMIT READY 
TCSR 
RDY 
ERROR 66 ; sMMIT RDY DID NOT SET IN TCSR 
BR 1$117 trEMLT TEST 
sSET INTERRUPT ENABLE 
LET @RCSR := ORCSR SET.LBY @le 
BIS #1E,adRCSR 
JSR RS,TIMER1 sSEE IF FLAG SETS 
INTFLG 
ERROR 111 sINTERR FLAG DID NOT SET 
BR TS117 eeERtT TEST 
JSR PC WAL! SLE) POSSIBLE 2°ND INTERR OCCUR 


sEMACTLY 1 INTERRUPT? 
IF INTELG GY @1 THEN 


SEQ 0046 
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005376 
005404 


005406 
005410 
005410 


005410 
005410 
005416 


005416 
005416 


005424 
005424 


005430 
005430 


005434 
005440 
005444 
005446 


005450 
005462 
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023727 
003401 


104112 


012737 


042777 


005037 


105077 


004737 
005737 
001401 
104113 


000005 


MACY)1 siiptsheieal” 
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011644 000001 


005416 001110 


000100 


011644 


173644 


012630 
011644 


173646 
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RECEIVER INTERRUPT LOGIC [EST 
CMP INTFLG,@1 
Bie $35 
ERROR i12 

sINTERRUPT WITHOUT IE SET. 
LP 

MOV #64%,$LPERR 
BIC #lE,aRCSR 
CLR INTFLG 
CLRB al But 
JSR PC, WAIT 
TST INTFLG 
BEQ 2th 
ERROR 113 
SETPRI #PR? sRAISE CPU PRIORITY 
RESET 


sSEE IF 


RECEIVER INTERRUPTED TWICE 
ENDIF 


ADR 


;CLEAR INTERRUPT 
LET @RCSR := @RCSR CLR.BY IE 


;CLEAR INTERRUPT FLAG 
LET INTFLG := #0 


>; SEND A CHARACTER 
LET @TBUF :B= #0 


; DARE IT 
INTERR FLAG EVER SETS 


IF NO 


TINTERR FLAG OCCURED WITH IE DISABLED 


sCLEAR TRE WORLD 


SEQ 0047 | 


EEE EEE EEE RRR nie iia 
4 
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CVAKAA.P11 30-MAY-79 15:57 116 RECEIVER INTERRUPT LOGIC [EST | SEQ 0048 


21035 
2104 ppt teeeenrerererererererrerererteertereetenerenereneeerereeeeees 
2105 SeTEST 17 TEST DATA WRAP AROUND BINARY COUNT: FLAG MODE 
2106 ppteeeeererenrerrtrereerrteserrereererteteeneeteeereeeeeeeeeeeeee 
2107 005464 000004 TST17: SCOPE 
2108 005466 012737 000001 001160 MOV #1,$TIMES 3:00 1 ITERATION 
Si%6 005474 012737 000017 001200 MOV #17,$TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
2111 005502 005737 012306 TST WRAP ;DOING DATA WRAP TESTS? 
2112 005506 001062 BNE TS$120 ::ExXIT IF NO 
2113 005510 005737 012310 TST CONSOLE ;ARE WE ON CONSOLE? 
2114 005514 001057 BNE T$120 S3ER1T OF VES 
2115 ;BINARY COUNT PATTERN 
2116 005516 INCR R2 FROM #0 TO #377 BY #1 
2117 005516 005002 CLR R2 
2118 005520 000401 BR $36 
2119 005522 $37: 
2120 005522 005202 INC Re 
2121 005524 $36: 
2122 005524 020227 900377 CMP R2,8377 
Sig? 005530 003051 BGT ' $40 
4 
2125 005532 004537 012512 JSR R5,TIMER sWAIT FOR XMIT READY 
2126 005536 001276 TCSR 
2127 005540 000200 RDY 
2128 005542 104123 ERROR 123 ;XMIT RDY DID NOT SET IN TCSR 
$185 005544 000443 BR TST20 ssEM1T TEST 
2131 sSTART IT ON ITS WAY 
2132 005546 LET @TBUF :B= R2 
cee 005546 110277 173526 MOVB R2,a1BUF 
4 
2135 005552 004537 012512 JSR R5, TIMER ;WAIT FOR RECV DONE 
2136 005556 001272 RCSR 
2137 005560 000200 DONE ’ 
2138 005562 104124 ERROR 124 sRECV DONE DID NOT SET IN RCSR 
fae 005564 000433 BR TST20 scEMIT TEST 
214 
2141 RETRIEVE 
2142 005566 LET R3 := @RBUF 
2143 005566 017703 173502 MOV QRBUF R35 
2144 ;CHECK FOR ERROR DURING TRANSFER 
2145 005572 1F MERROR SETIN R3 THEN 
2146 005572 032703 190000 BIT MERROR,RS 
2147 005576 001401 BEQ $41 
2148 SERROR BIT SET IN HIGH BYTE OF RBUF 
2149 005600 104200 ERROR 200 
2150 005602 ENDIF 
2151 005602 $41: 
2152 005602 020302 CMP R3,R2 ;COMPARE DATA 
2153 005604 001412 BEQ 3$ :BR IF OK 
2154 005606 005737 012500 1S] WORD. 38 BITS/WORD? 
2155 005612 001002 BNE 2$ ;BR IF NO 
2156 005614 104017 ERROR 17 sDATA COMPARE ERR IN 8 BLT WORD 
2157 005616 000416 BR T9120 soleil Test 
2158 















r 
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CVMKAA.P11 30-MAY=79 15:5 TEST DATA WRAP AROUND BINARY COUNT: FLAG MODE SEQ 0049 | 
2159 005620 020227 000200 2$: CMP R2,#200 :200 OR MORE? 
2160 005624 002012 BoE 4$ :BR IF YES 
2161 005626 104117 ERROR 117 ;DATA COMPARE ERR IN 7 BIT WORD 


162 005630 000411 BR T$120 EMIT TEST 


2 
2 
2164 005632 005737 012300 3$: TST WORDL 38 BITS/WORD? 

2 5 4% ;BR IF YES 

2166 005640 020227 000177 CMP R2,8177 sMORE THAN 177? 

2 2 4% ;BR IF NO 

2168 005646 104022 ERROR 22 :GETTING 8 BITS ON 7 BIT XMIT 
2169 31S SDEVM SETUP OK? 
sir 005650 000401 BR .%G EMIT 
2 

2 

2 


72 005652 4$: ENDING ;R2 
3 005652 000725 BR $37 
005654 


=—— 





L 
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CVMAKAA.P11 30-mMAY-79 15:57 TEST DATA WRAP AROUND BINARY COUNT: FLAG MODE SEQ 0050 | 
2175 
2176 ppeeeerereeererrrreeeeeteeeereeteererereereeeeeReeeeee Rene eee Tee 
2177 *TEST 20 TEST DATA WRAP AROUND BINARY COUNT: INTERRUPT MODE 
2178 ppeteeeereerererereetertereeeteteeterteeeteeeeeeeee eRe eee 
2179 005654 000004 TST20: SCOPE 
2180 005656 012737 000001 001160 MOV #1, STIMES :;D0 1 ITERATION 
era 005664 012737 000020 001200 MOV #20,$TESIN :;SET TEST NUMBER IN APT MAIL BOX 
2183 005672 005737 012306 TST WRAP :DOING DATA WRAP TESTS? 
2184 005676 001003 BNE 1$ ;BR IF NO 
2185 005700 005737 012310 TST CONSOLE : ARE WE ON CONSOLE? 
2186 005704 001402 BEQ 2$ ;BR IF NO 
2187 005706 000137 006176 1$: JMP Ex! TEXIT TEST 
2188 005712 2$: 
2189 : THIS TEST WILL RUN BOTH TRANSMITTER AND 
2190 ; RECIEVER AT FULL SPEED TESTING 
2191 : THE ABILITY OF THE MODULE 
si : TO HANDLE INTERRUPTS FROM BOTH SIDES AT ONCE. 
2194 ; -DOUBLE BUFFERING IS NOT FULLY TESTED BECAUSE OF 
2195 , APT CONSIDERATIONS. I.E. ‘BREAK’ FROM APT 
2196 ¢ =CAUSES OVERRUN ERRORS. THEREFORE TRANSMIT INTR IS 
Stee < ENABLED ONLY AFTER THE RECVR HAS OBTAINED THE LAST wORD 
2199 : : THIS TEST WILL TRANSFER A MAXIMUM OF 400(8) 
2200 i > CHARACTERS THROUGH THE MODULE, BUT IF AN ERROR 
o> { : 1S DETECTED BY THE TEST A PREMATURE SHUTDOWN OCCURS. 
c 
2203 H SCHANGE PRIORITY 
2204 2.2.10 0 
2205 005712 SETPRI #PRO 
2206 GET VECTOR ADDRESS 
2207 005724 LET Ri := DLVEC 
2208 005724 013701 001302 MOV D'.VEC,R1 
2209 sRCVR VECTOR 
2216 005730 LET (R1)* := REC 
2211 005730 012721 006242 MOV WREC,(R1)+ 
2212 005734 LET (R1)4 := MPR7Z 
2213 005734 012721 000340 MOV MPR7,(RI1)¢ 
2214 A POINT TO TRANSMITTER VECTOR 
2215 ' :AND SET IT UP ALSO 
2216 005740 LET (R1)*# := M@TRAN 
2217 005740 012721 006204 MOV MTRAN,(R1)¢ 
2218 005744 LET (RI) := @PR? 
ecu 005744 012711 000340 MOV #PR7,(R1) 
2221 > CLEAR ERROR COUNTER 
2222 005750 LET ERRCNT := #0 ; 
2223 005750 005037 006200 CLR ERRCNT 
2224 905754 LET DATA := #0 ;:XMIT DATA 
$s¢> 005754 005037 006240 CLR DATA 
6 
2227 005760 005737 012300 1ST WORDL 78 BITS/WORD? 
2228 005764 001904 BNE 3$ “BR IF NO 
2229 005766 012737 000400 006202 MOV #400,NUMBER 


2230 005774 000403 BR 4$ 
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55 
TEST DATA WRAP AROUND BINARY COUNT: INTERRUPT MODE SEQ 0051 | 
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oo3) 005776 012737 000200 006202 3%: MOV #200,NUMBER 
2233 006004 4$: :SET I.E. IN TRANSMITTER 
2234 006004 LET @TCSR := @TCSR SET.BY @IE 
2235 006004 052777 000100 173264 BIS WIE, aTCSR 
2236 ;AND RECEIVER 
2237 006012 LET @RCSR := @RCSR SET.BY @IE 
sm 006012 052777 000100 173252 BIS #lE,aRCSR 
2240 
2241 sNOW WE WAIT 
2242 006020 012737 000050 001306 MOV #50,1MPc 
2243 006026 012737 177777 001304 8$: MOV #-1,1MP1 
2244 006034 023737 006240 006202 S$: CMP DATA,NUMBER zALL DONE? 
2245 006042 001413 BEQ 7$ ;BR IF YES 
2246 006044 005337 001304 DEC TMP 1 sELSE TIMER DONE? 
2247 006050 001005 BNE 6% 3BR IF NO 
2248 006052 005337 001306 DEC TMP2 
2249 006056 001363 BNE 8$ 
2250 006060 104066 ERROR 66 :HUNG, NO DATA XFERS 
$523 006062 000403 fh 7 
2253 006064 005737 006200 6$: TST ERRCNI sANY ERRORS? 
2254 006070 001761 BEQ 5$ ;BR IF NO & TRY AGAIN 
2255 006072 7$: sNOW LETS CHECK. 
2256 ;TURN OFF ALL INTR ENABLE 
2257 006072 LET @TCSR := @TCSR CLR.BY #IE 
2258 006072 042777 000100 173176 BIC #IE,aTCSR 
2259 006100 LET A@RCSR := ARCSR CLR.BY @IE 
2260 006100 042777 000100 173164 BIC #1E,aRCSR 
2261 006106 IF ERRCNT NE #0 THEN 
2262 006106 005737 006200 TST ERRCNT 
2263 006112 001431 BEQ $42 
2264 006114 IF MERROR SETIN RHLD THEN 
2265 006114 932737 100000 006346 BIT #ERROR,RHLD 
2266 006122 001424 BEQ $43 
2267 006124 IF MORERR SETIN RHLD THEN 
2268 006124 032737 040000 006346 BIT MORERR,RHLD 
2269 006132 001402 BEQ $44 
2270 :OVERRUN ERROR 
2271 006134 104220 ERROR 220 
2272 006136 ELSE IF MFRERR SETIN RHLD THEN 
2273 006136 000415 BR $45 
2274 006140 $44: 
2275 906140 032737 020000 006346 BIT #FRERR,RHLD 
2276 006146 001402 BEQ $46 
22/7 sFRAMING ERROR 
2278 006150 104221 ERROR 221 
2279 006152 ELSE JF MPERR SETIN RHLD THEN 
2280 006152 000407 BR $47 
2281 006154 $46: 
2282 006154 032737 010000 006346 BIT #PERR,RHLD 
2283 006162 001402 BEQ $50 
2284 :PARITY ERROR 
2285 006164 104222 ERROR 222 


006166 


ELSE 


Mm —O OBNEA VFWH—OOONG VFWR—O”OW 


006166 
006170 


006170 
2 


006174 


006174 
006176 
006176 
006176 
006176 
006176 
006176 


006200 
006202 


006204 
906204 
006212 
006214 
006220 


006222 
006222 
006230 
006230 


006230 
006230 
006236 


096240 
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000401 


104120 


000464 


000000 
000000 


023737 
001406 
005737 
001003 


013777 


042777 
000002 


000000 


MACY11 306(1063) 
30-MAY=79 15:57 


000401 


006240 
006200 


006240 


000100 
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TEST DATA WRAP AROUND BINARY COUNT: INTERRUPT MODE 


ERROR 24 


ERROR 


30-MAY-79 
120 
BR 
$50: 
ak 
$47: 
$45: 
BR 
$43: 
$52: 
$42: 
EX1: 
BR 
ERRCNT: O 
NUMBER: 0 


$51 
; UNKNOWN ERROR 
ENDIF 
ELSE 
$52 
;DATA COMPARE ERROR 
120 
ENDIF 
ENDIF 
TST21 ScEXMIT TEST 


sp te eeeeeeeeeee eee eeeeeereeeeeeeeeeeeeeteteneeeeeeeeeeeeeeeesense 


7 TRANSMIT INTERRUPT HANDLER 


po eeeeereerereeeeeeeteretteeeeetettrreeeeeeeeeeteeeteeneeeeeeeeee 


TRAN: 


$53: 


DATA: 


CMP 
BEQ 
1ST 
BNE 


MOV 


IF DATA NE NUMBER AND ERRCNT €Q #0 THEN 


DATA,NUMBER 
$53 
ERRCNT 
$53 
SHIP OUT WORD 
LET @TBUF := DATA 
DATA,a1BUF 
END IF 
sSTOP INTERR, NOT EXER DOUBL BUFFER 
LET @TCSR := @TCSR CLR.BY @lE 
WIE,aTCSR 
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001411 


013737 
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005237 
090415 


005237 


023737 
001004 
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000002 
000000 


173026 


1000606 
006346 


006202 
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006200 


006240 


006240 


000100 


000100 
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006346 
006240 


006240 
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006202 


172736 


172732 
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TEST DATA WRAP AROUND BINARY CCUNT: 


INTERRUPT MODE 


i eeeerercerecerereererererererererererererenerentesenereeereneeeee 


RECEIVER INTERRUPT HANDLER 


sy ereereecrerererrrrrereerererererererereerenetenereneeterarenTere 


REC: 


$55: 


MOV 


BIS 


@RBUF ,RHLD 


WERROR,RHLD 
$54 
RHLD,DATA 
$55 


NUMBER ,DATA 
WIE ,aRCSR 
ERRCNT 

$56 


CATA 
DATA,NUMBER 
$57 


#1E,aRCSR 
$60 


MIE, aTCSR 


;GET CHAR 


LET RHLD 


; CHECK 


IF MERROR SETIN RHLD OR RHLD NE 


:= @RBUF 
ERROR 


DATA THEN 


sSTOP ALL INTERR PROC & GET OUT 


LET 

LC! 

LET 
ELSE 


LET 


ENDIF 


DATA 
@RCSR 
ERRCNT := 


DATA := DA 


:= NUMBER 
:= @RCSR CLR.BY @IE 


ERRCNT + #] 


TA + #) 


1F DATA £EQ NUMBER THEN 


LET @RCSR 
ELSE 


:= @RLSR 


CLR.BY @IE 


sALLOW NEXT XMIT INTERR 


LET @TCSR 
ENDIF 


:= @ICSR 


SET.BY @lt 


C 
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CVMAXAA.P11 30-May-79 15:57 TEST DATA WRAP AROUND BINARY COUNT: INTERRUPT MODE SEQ 0054 © 
2379 
2380 Sy eteerercecererrrerrererrerererrererereratereeeetereerereretetes 
2381 seTEST 21 TEST BREAK LOGIC 
2382 ie TRANSMIT KNOWN CHAR WITH BREAK SET 
2383 ;* AND COMPARE RECEIVED WITH 0. 

2384 3f FRAMING ERROR WILL ALSO BE CHECKED 

2385 i* IF ERROR BITS ARE ENABLED. 

2386 sp tteerererereererererererrerereerrereereteeeneeeeeerenenereeeerese 

2387 006350 000004 TST21: SCOPE 

2388 006352 012737 000010 001160 MOv MIO, STIMES ::D0 10 ITERATIONS 
f44 006360 012737 000021 001200 MOV #21,S$TESIN 3;SET TEST NUMBER IN APT MAIL BOX 

2391 006366 005737 012306 TST WRAP WRAP TESTS? 

2392 006372 001006 BNE 1$ :BR IF NO 

2393 006374 005737 012310 TST CONSOLE ELSE ARE WE ON CONSOLE? 

2394 006400 001903 BNE 1$ :BR IF YES...DONT TES? 

2395 006402 005737 012304 1S1 BRK ELSE 1S BREAK DET ENABLED? 
2396 006406 001402 BEO Py :BR IF NO 

2397 006410 000137 006744 1$: JMP EX2 

2398 006414 es: 

2399 006414 LPADR 

2400 006414 012737 006422 001110 MOV #64$,SLPERR 

2401 006422 64$: 

2402 
2403 006422 LET ERRCHK := #0 > CLEAR ERRGR WORD 
2404 006422 005937 006746 CLR ERRCHK 

2405 SET BREAK BIT 

2406 006426 LET @TCSR := @TCSR SET.BY #@BREAK 
2407 006426 052777 000001 172642 BIS @BREAK ,a!(SR 
2408 sNON-ZERO CHAR. ‘e' 
2409 006434 LET @TBUF := #125 
cit 006434 012777 000125 172636 MOV #125,a1Buf 

4 
2412 006642 004537 012512 JSR RS, TIMER zWAIT FOR RECV DONE 

2413 006446 001272 RCSR 
2414 006450 000200 DONE 
2415 006452 104115 ERROR 115 sRECV DONE DID NOT SET IN RCSR 
gets 006454 000535 BR T$122 srEMLT TEST 

4 

2418 006456 LET RO :- @RBUF 

2419 006456 017700 172612 MOV aRBUF RO 

2420 006462 1FB RO NE #0 THEN 

2421 006462 105700 TSTB RO 

2422 006464 001403 BEG $61 

2423 ; BREAK DID NOT EQUAL O 
2424 096466 LET ERRCWK :- ERROHK SET.BY @BITO 
2425 000466 052737 000001 006746 BIS MBITO,ERR( He 

2426 006474 ENDIF 

2427 006474 $61: 

2428 606474 ]f @FRERR NOTSETIN RO THEN 

2429 006474 632700 020000 BIT #FRERR,RO 

2430 006500 001003 BNE $62 

2431 006502 LET ERRO MR :) FERRO we SET BY BIT 
2432 006502 052737 000002 006746 BIS MBIT ERR HK 


END I 





D 
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CVAXAA.Pi1 30-MAY-79 15:57 TEST BREAK LOGIC SEQ 0055 
2435 006510 95737 012300 TST WORDL ;PARITY ENABLED? 
2436 006514 001420 BEQ 4% ;BR IF NO 
2437 006516 005737 012302 TST ODD sELSE ODD? 
2438 006522 001407 BEQ 7% :BR IF YES 
2439 006524 032700 019000 BIT #PERR,RO :DONT EXPECT PARITY ERR 
2440 006530 001412 BEQ 4% :BR if NONE 
2441 006532 052737 000010 006200 BIS #B1I3,ERRCNT ;PARITY ERR WHEN NOT EXPECTED 
oat 006540 000406 BR 4% 
2444 006542 032700 010000 3$: BIT #PERR,RO sEXPECT PARITY ERR 
2445 006546 001003 BNE 4$ :BR IF THERE 
_— 006550 952737 000004 006746 BIS #BIT2,ERRCHK zNO PARITY ERR WHEN EXPECTED 
2448 006556 000005 4$: RESET 
2449 006560 032777 170000 172506 BIT #170000,aRBUF 
2450 006566 001401 BEQ 1$ 
2451 006570 104033 ERROR 33 ;RESET DID NOT CLEAR ERROR,FR ERR,OR PERR iN RBUF 
2452 006572 1$: 
2453 
2454 006572 , IF @BITO SETIN ERRCHK THEN 
2455 006572 032737 000001 006746 BIT WBITO,ERRCHK 
2456 006600 001401 BEQ $63 
2457 006602 104121 ERROR 121 :BREAK ERROR 
2458 006604 ENDIF 
2459 006604 $63: 
2460 006604 If #BIT1 SETIN ERRCHK THEN 
2461 006604 032737 000002 006746 BIT #BITI,ERRCHK 
2462 006612 001401 BEC $64 
2463 006614 104122 ERROR 122 ; FRAMING ERROR 
2464 006616 ENDIF 
2465 006616 $64: 
2466 006616 IF #BIT2 SETIN ERRCHK THEN 
2467 006616 032737 000004 006746 BIT #BIT2,ERRCHK 
2468 006624 001401 BEQ $65 
2469 006626 104235 ERROR 235 zNO PARITY ERROR WHEN 
2470 ; THERE SHOULD BE 
2471 006630 ENDIF 
2472 006630 $65 
2473 006630 If #BIT3 SETIN ERRCHK THEN 
2474 006630 032737 000010 006746 BIT #BIT3,ERRCHK Ay 
2475 006636 001401 BEQ $66 
2476 006640 104236 ERROR 256 >PARITY ERROR SHOULD NOT HAVE 
2477 sOCCURED WITH EVEN PARITY 
2478 sENABLED AND BREA SET 
2479 006642 ENDIF 
2480 006642 $66: 
2481 006642 LPADR 
2482 006642 012737 006650 001110 MOV #6048, SLPERR 
2483 006650 64$: 
2484 ;SET BREAK BI’ 
2485 006650 LET @TCSR := @TCSR St’ .BY M@BRE AK 
ry, 0060650 052777 000001 172420 BIS #BREAK ,aTCSR 
4 
2488 006656 004537 012512 JSR RS,TIMER swAILT FOR XMIT READY 
2489 0060662 001276 TCSR 


2490 006664 000001 BRE AK 









006666 
006670 


006672 
006672 
006700 


006704 
006704 


006710 
006710 


006716 


006730 


006732 
006732 
006740 


006742 
006744 
006744 
006744 
006744 


006746 
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104021 
000427 


042777 
004737 


017700 


012777 
004537 
001272 
000200 


104230 
000407 


127727 
001401 


104231 


000401 
000000 


MAC 


15:57 


000001 
012630 


172364 


000125 
012512 


172336 


172376 


172362 


000125 





Y11 306(1063) 30-MAY 
121 


$67: 
EXe: 


ERRCHK: 





















E 
-79 15:58 PAGE 58 
TEST BREAK LOGIC 


ERROR 21 
BR TST22 
BIC BREAK ,aTCSR 
JSR PC, WAIT 
MOV ARBUF ,RO 
MOV #125,aTBUF 
JSR R5, TIMER 
RCSR 
DONE 
ERROR 230 
BR TST22 


CMPB ARBUF #125 
BEQ 67 


ERROR 231 


BR TST22 
WORD 0 


SEQ 0056 | 


sBREAK DID NOT SET IN TCSR 
<eeRLt TES! 


;CLEAR BREAK BIT 
LET @TCSR := @TCSP CLR.BY MBREAK 


;READ RBUF TO CLEAR ERRORS & REC DONE 
LET RO z= aRBUF 


. 7SEND CHAR 
LET @TBUF := #125 
sWAIT FOR RECV DONE 
sRECV DONE DID NOT SET IN RCSR 
ssEMIT TEST 


sWAS CHAR AFTER BREAK RECEIVED 
I1FB @RBuF NE #125 THEN 


;CHAR AFTER BREAK NOT RECEIVED CORRECTLY 


ENDIF 


ScEMIT TEST 





CVAKAA.P11 


2525 006750 






















2529 006750 
2530 006752 


2532 006760 


2537 007040 


2539 007042 
254C 007046 
2541 007050 
2542 007110 


2544 007114 
2545 007130 
2546 007136 
2547 007156 
2548 007164 
2549 007204 
2550 007212 


2552 007216 


2558 007246 


2560 007252 
007200 
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000004 
012737 


032777 
001513 
023727 
001021 


000425 


005737 
001022 


005237 


104401 


005037 
023727 
001010 
005037 
005037 
104401 
000137 


112737 
000137 


000001 001160 
010000 172152 
012312 000001 


012314 


012314 


001171 


001112 


012312 000001 


001102 


1 306(1063) 
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NOTST: 


F 
15:58 PAGE 59 
TEST BREAK LOGIC 


o ;eeeeerererrerererertrereererereeerereteneneeteeraeeteneeneeeenes 


NOT A TEST = SEND BACK TO LOOP 


-*s@eereerertereretereneereereeeerereereerteteteteeereeneeeeteeteetetetere 


S*TEST 22 


1S122: SCOPE 
MOV 


2s: TYPTXT 
TYPOCT 
TYPTXT 
TYPOCT 
TYPTXT 
TYPDEC 
TYPE 


3$: CLR 
CMP 
BNE 
CLR 
CLR 
TYPE 
IMP 


4$: MOVB 
JMP 


#1 ,$TIMES 
oo 
PHASE2 ,#TRUE 
1$ 

<<CRLFED/ 

2$ 


PICNT 
2$ 


<<CRLF>/ 
PICNT 


<*CSR: * 
DLADD 

<*, VECTOR: *> 
DLVEC 

<* ERRORS: *> 
SERTIL 

»SCRLF 


SERTIL 
PHASE2 , #TRUE 
4% 

PHASE2 

$UNIT 

, CARR 

$EOP 


aS,$1STNM 
LOOP 


3:00 1 ITERATION 
;WANT SUMMARY? 
;BR IF NO 
ELSE IN PHASE 2? 


“BR IF NO 
ee PHASE 2 SUMMARY *##/<CRLF >> 


** PHASE 1 SUMMARY *##/<CRLF >> 


> RESET FOR NEXT DEVICE/PASS 
> IN PHASE 2? 
;BR IF NO 


jFAKE GUT FOR 2°ND CHANNEL 
; BACK UP TO THE BEGINNING 


SEQ 0057 





CVMXAAQ MxXV11A DIAG 
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007264 


007264 
007266 
007274 


007302 
007306 
007312 
007316 


007322 


007334 
007342 


007344 
007350 
007354 
007360 
007364 


007370 
007374 
007400 
007404 


007410 
007414 
007420 
007426 
007432 
007434 
007440 
007442 


007444 
007452 
007454 
007462 


007464 
007470 
007474 
007500 
007504 


007510 
007514 
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000004 
012737 
012737 


065037 
005037 


005037 
005037 


032737 
001040 


062700 
052720 


012710 


104070 
032737 


MACY11 
13397 


000001 
000023 


010040 
010042 


010044 
010046 


102000 


001256 


000340 
001254 
000100 
000004 
000100 
000125 
000006 
100000 
000200 


001304 


000410 


001260 


001262 


000340 


001260 
000100 


G 
306(1063) 30-MAY-79 15:58 PAGE 60 
T22 NOT A TEST = SEND BACK TO LOOP 


MODTST: 
sy, eeteerererererererererererereerereteeeeeereneeeaneeeeteteenxeene 
s*TEST 23 TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY. 
3° INTERRUPTS WILL BE ENABLED ON ALL ACTIVE CHANNELS. 
:* RECEIVER AND TRANSMITTER. THEN WE°LL CHECK TO 
:* SEE IF THEY INIERRUPTED IN THE ASSIGNED SEQUENCE. 
spe reererererertersrererestererererteeereraeneeaeetene ‘erent eraneenete 
18123: SCOPE 
001160 MOV #1,$TIMES ::D0 1 ITERATION 
001200 MOV #23, STESIN 3;SE1T TEST NUMBER IN APT MAIL BOX 
CLR INTABL CLEAR OUT INTERRUPT TABLE 
CLR INTABL +2 
CLR INTABL +4 
CLR INTABL +6 
SETPRI &#PR7 
001252 BIT #<BIT1S'BIT10>,$DEVM :CH 0 DROPPED OR NO WRAP? 
BNE 1$ sBR IF EITHER SET 
MOV VECTO,RO :SETUP CH 0 VECTOR AREA 
MOV MCHOR, (RO) + sRECV 
MOV #PR7,(RO)+ 
MOV #CHOX, (RO) + suMMIT 
MOV #PR7,(RO) 
MOV BASEO,RO ENABLE INTERRUPTS 
BIS #1E, (RO) sRECV 
ADD #4,R0 
BIS #1E,(RO)+ MALT 
MOV #125, (R0) sMMIT CHAR TO PRIME RECEIVERS 
SUB #6, ;GO0 BACK TO RCSR 
001304 MOV #100000,1MPF1 
7$: SIT #DONE, (RO) ; DONE? 
BNE 1$ ;BR IF YES 
DEC TMP] 3 'IMED OUT? 
BNE 7% ;BR IF NO 
ERROR 70 sNO RCVR DONE 
001252 +18: BIT #<BIT8'BIT3>,$DEVM :CH 1 DROPPED OR NO wRAP? 
BNE 2$ ;BR IF ELTHER SET 
001144 CMP BASE1,$1KS :CH i CONSOLE? 
BEQ 2$ BR IF YES 
MOV VECT1,RO :SETUP CH 1 VECTOR AREA 
MOV #CHIR, (RO) + sRECV 
MOV @PR7,(RO)* 
MOV #CHIK, (RO)? MMI! 
MOV @PR7, (RO) 
MOV BASE1,R0 SENABLE INTERRUPTS 
BIS #1E, (RO) REC 


SEQ 0058 | 





5 


H 
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CVMKAA.P11 30-MAY-79 15:57 TEST THAT CHANNELS INTR AI ASSIGNED PRIORITY. SEQ 0059 
2619 007520 062700 000004 ADD #4 RO . 
2620 007524 052720 000100 Bis #1E,(RO)* SXMIT 
2622 007530 012710 000125 MOV #125, (R0) :XMIT CHAR TO PRIME RECEIVERS 
2623 007534 162700 000006 SUB #6,R0 +GO BACK TO RCSR 
2624 007540 012737 100000 001304 MOV #100000, TMP 1 
2625 007546 032710 000200 8$: BIT #DONE, (RO) : DONE ? 

2626 007552 001004 BNE 2$ “BR IF YES 

2627 007554 005337 001304 DEC TMP 1 = TIMED dul? 

2628 007560 001372 BNE 8$ =BR IF NO 

2629 007562 104071 ERROR 71 “NO RCVR DONE 

2631 sALL XMIT & REC INTERRUPTS SHOLLD BE 

2632 > IN CONTENTION. 

2633 > CHAN 0 HAS PRIORITY OVER CHAN 1. 

2634 sRECEIVE HAS PRIORITY OVER XMIT INTERRUPTS. 

2635 THEREFORE, ONCE CPU PRIORITY IS LOWERED, 

26356 ; INTERRUPTS S/B IN THE ORDER SHOWN IN THE 

ee sCHANNEL IDENTIFIER TABLE (RCHO:) 

6 
2639 007564 032737 102000 001252 2%: BIT #<BIT15'BI1T10>,$DEV™M :CHO DROPPED OR NO WRAP? 
2640 007572 001003 BNE 5$ “BR IF EITHER SET 

64 

2642 007574 012704 010040 MOV M#INTABL ,R4G sSETUP FOR SERVICE ROUTINES 
2643 007600 000402 BR 6$ 

644 
2645 007602 012704 010044 S$: MOV #INTABL +4,R4G 

2646 
2647 007606 6$: SETPRI] #PRO sLET‘EM GO! 

2648 007620 012700 177777 MOV #-1,R0 :DELAY TO ALLOW ANY PREVIOUS XMIT TO 
2649 007624 077001 $08 RO,. sFINISH BEFORE RESET 

2650 007626 000005 RESET sDISABLE ALL INTERRUPTS 
2651 007630 SETPRI #PR7 

6 
tt sNOW LETS SEE I1* INTABL HAS ENTRIES IN THE CORRECT ORDER 
2654 

2655 007642 032737 102000 001252 Bll #<BITIS‘BIT10>,$CEVM :CH 0 DROPPED OR NO WRAP? 
cert 007650 001011 BNE 3$ :BR IF EITHER SET 

6 

2658 007652 005737 010040 1ST INTABL :1°ST ENTRY 0? 

2659 007656 001401 BEQ il “BR IF YES 

sey 007660 104250 ERROR 250 sDID NOT INTERR AT ASSIGNED PRIOR 
66 

2662 007662 023727 010042 000001 CMP INTABL*+2,1 :2°ND ENTRY 1? 

2663 007670 001401 BEQ +4 sBR IF YES 

2664 097672 104250 ERROR 250 

66 

2666 007674 032737 000410 001252 %$: BIT #<BIT8:BI13>,$DE VM :(H 1 DROPPED OR NO WRAP? 
2667 007702 001016 BNE 4% :BR IF EITHER SET 

2068 007704 023737 001260 001144 CMP BASE1,$1KS :CH 1 CONSOLE? 

2669 007712 001412 BEQ 4$ “BR IF YES 

26 

2671 007714 023727 010044 000002 CMP INTABL #4, #2 =3°RD ENTRY 2? 

2072 007722 001401 BEQ (+h “BR IF YES 


2673 007724 104250 ERROR 250 





CVMKAAQ MxXV11A DIAG MACY11 306(1063) 
CVMKAA.P11 T2 


007726 
007734 
007736 


007740 
007740 


30-MAY-79 15:57 


023727 019046 000003 
001401 
104250 


tiemeae 


] 
15:58 PAGE 62 


TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY. 


CMP 
Bia 
ERROR 


4$: 


000443 





BR 


INTABL+6,83 
.*4 
250 


1S124 


34°TH ENTRY 3? 
sBR IF ;YES 


SSERET TES! 


SEQ 0060 
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2683 007742 
2685 007742 


2687 007742 
2688 007744 
2689 007750 
2690 007754 


2692 007756 
2693 007762 
2694 007766 
2695 007772 
2696 007776 


2698 010000 
2699 010004 
2700 010019 
2701 010014 


2703 010016 
2704 010022 
2705 010026 
2706 010032 
2707 010036 







0100460 
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005024 
014700 
04¢710 
000002 


012724 
013700 
062700 
042710 
000002 


012724 
013700 
042710 
000002 


012724 
013700 
062700 
042710 
000002 


000004 


MAC 


001254 
000100 


000001 
001254 
000004 
000100 


000002 
001260 
000100 


000003 
001260 
000004 
000100 
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T2 





















STARS 
-@ 

STARS 
CHOR: 


CHOX: 


CHIR: 


CHIX: 


7THIS TABLE Wiil CONTAIN ENTRIES 
;REPRESENTING EACH iINTR IN THE ORDER 


30-MAY-79 
3 


15:58 PAGE 63 
TEST THAT CHANNELS INTR Al 


ASSIGNED PRIORITY. 


START OF SERVICE ROUTINES 


(R4)+ 
PASEO ,RO 
WIE, (RO) 


#1, (RG)¢ 


#2,(R4)¢ 
BASE1,RO 
#1E,(RO) 


#3, (R4)¢ 


WIE, (RO) 


7 THAT IT OCCURED 
; S/B IN THE FOLLOWING ORDER: 0,1,¢,3 


INTAB: : 


BL KW 


4 


sPUT IDENTIFIER IN TABLE 
3 1 INTERR IS ALL WE WANT 


PUT IDENTIFIED IN TABLE 


> 1 INTERR IS ALL WE WANT 


:PuT IDENTIFIER IN TABLE 
>; T INTERR JS ALL WE WANT 


sPul IDENTIFIED IN TABLE 


> 1 INTERR IS ALL WE WANT 


SEQ 0061 | 


CVMKXAAO MXVTIA DIAG macy) 306(1063) 30-MAY-79 15:58 PAGE 64 
CVMXAA.P11 30-MAY=-79 15:57 123 TEST THAT CHANNELS INTR AI ASSIGNED PRIORITY. SEQ 0062 

2718 
2719 - @eeeeeteeeteeereeeeeeeereeeeeeeteeeRreeeeeeeeeneteetetereneeneerese 
2720 ;#TEST 24 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 
2721 ; iN THIS WE'LL ENABLE INTERRUPTS ON ALL CHANNELS. 
2722 - THEN WE'LL XMIT AN INCREMENTING 
2723 sf DATA PATERN VIA INTERRUPTS AND RECORD THE RECEIVER 
2724 _* INTR. IN THE RECEIVER STATUS TABLE. 
2725 se NOTE: DOUBLE BUFFERING CANNOT BE TESTED AT ITS MAX SPEED 
2726 se BECAUSE OF APT CONSIDERATIONS. I.£. APT SENDS 
2727 39 "BREAKS WHICH CAUSE OVERRUN ERRORS. THEREFORE 
2728 3* THE XMIT IE IS NOT ENABLED AGAIN UNTIL THE RECVR 
2729 :* HAS OBTAINED THE PREVIOUS WORD. 
2730 sp etteeteerererrererererereseteeeterereneeeeKeeTAKeRKeeeAAeKeTeeee 
2731 010050 000004 TS124: SCOPE ‘ 
2732 010052 012737 000001 001160 MOV #1,$TIMES ::D0 1 ITERATION 
Te. 010060 012737 000024 001200 MOV #24,$TESTN ::5E€1 TEST NUMBER IN APT MAIL BOX 
2735 010066 005037 011324 CLR COXMIT :1°ST WORD OF CH O TO XMIT 
Sra 010072 012737 000100 011330 MOV #100,C1XMIT :1°ST WORD OF CH 1 TO XMIT 
2738 010100 012700 010724 MOV #CHOTAB,RO CLEAR OUT RECEIVER TABLES 
2739 010104 005020 CLR (RO) + : 
2740 010106 020027 011324 CMP RO, #STATEND sALL DONE? 
gs 010112 001374 BNE .76 :BR IF NO 

4 
765 010114 SETPRI #PR7 

44 
2745 010126 032737 102000 001252 BIT #<BITIS'BIT10>,$DEVM :CH 0 DROPPED OR NO WRAP? 
gre 010134 001035 BNE 1$ :BR IF EITHER SET 

4 
2748 010136 013700 001256 MOV VECTO,RO SETUP CH 0 VECTOR AREA 
2749 010142 012720 010550 MOV #ROSRV, (RO) 4 :RCVR 
2750 010146 012720 000340 MOV #PR7,(RO)+ 
2751 010152 012720 010610 MOV #XOSRV, (RO) + :XMIT 
te 010156 012710 000340 MOV #PR7, (RO) 
2754 010162 013700 001254 MOV BASEO,RO ENABLE INTERRUPTS 
2755 010106 052710 000100 BIS #1E, (RO) sRCVR 
2756 010172 062700 000004 ADD #4,R0 
tat 010176 052710 000100 BIS #1E, (RO) sXMIT 
2759 010202 032737 040000 001252 BIT #BIT14,$DEVM 28 BITS/WORD? 
2760 010210 001404 BEQ .+12 :BR IF YES 
2761 010212 012737 000037 011326 MOV #37,COEND 
2762 010220 000403 BR .+10 
gree 010222 012737 000077 011326 MOV #77, COEND 

64 
2765 010230 032737 000410 001252 18: BIT #<BI1T8:BIT3>,$DEVM CH 1 DROPPED OR NO WRAP? 
2766 010236 001041 BNE 2% :BR IF EITHER SET 
2767 010240 023737 001260 001144 CMP BASF1,$1KS (4 1 CONSOLE? 
2768 010246 001435 BEQ 2$ :BR IF YES 



























L 
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CVMKAA.P11 30-MAY-79 15:57 124 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING | . SEQ 0063 
2769 iy yg 
2770 010250 013700 001262 MOV VECT1,R0 :SETUP CH 1 VECTOR AREA 2 
2771 010254 012720 010636 MOV #RISRV,(RO)* :RCVR > 
2772 010260 012720 000340 MOV #PR7,(RO)* 

2773 010264 012720 010676 MOV #X1SRV,(RO)¢ sXMIT 

sth 010270 012710 000340 MOV #PR7,(RO) 

2776 010274 013700 001260 MOV BASE1,R0 sENABLE INTERRUPTS 

2777 010300 052710 000100 BIS WIE, (RO) sRCVR 

2778 010304 062700 000004 ADD #4 ,RO Tom 

ors 010310 052710 000100 BIS #1E,(RO) XMIT 

2781 010314 032737 000200 001252 BIT #BIT7,$DEVM 78 BITS/WORD? ' 
2782 010322 001404 BEQ .+12 ;BR IF YES 

2783 010324 012737 000137 011332 MOV #137,C1END 

2784 010332 000-93 BR .*10 

fh dy 010334 012737 000177 011332 MOV #177,C1END 

2787 010342 012700 010724 2s: MOV #CHOTAB,RO s INIT BUFFER PTRS FOR SERV ROUTINES 
th 010346 012701 911124 MOV #CHITAB,R1 

te 010352 SETPRI #PRO sLET'EM LOOSE! 

2792 010364 012702 177777 MOV #-1,R2 sDELAY TO ALLOW ANY PREVIOUS XMIT TO 
2793 010370 077201 SOB R2,. sFINISH BEFORE RESET 

cies 010372 000005 RESET sDISABLE ALL INTERR 

te 010374 SETPRI] #PR7 

2798 sNOW LETS CHECK TO SEE IF TABLE(S) ARE IN CORRECT ORDER 
2600 010406 032737 102000 001252 Bl #<BITIS'BITIO>,SDEVM :CH 0 DROPPED OR NO WRAP 

3H 010414 001021 BNE 5$ ;BR IF EITHER SET 

2803 010416 005000 CLR RO sEXPECTED WORD 

cone 010420 912701 010724 MOV #ChHOTAB,R1 ; TABLE PIR 

2 

2806 010424 020011 3$: CMP RO, (R1) sEMPECT = ACTUAL? 

cone 010426 001405 BEQ 4% ;BR IF YES 

2809 010430 005711 TST (R1) sERROR SET? 

2810 010432 100002 BPL +6 ;BR IF NO 

2811 010434 104270 ERROR 270 sERROR FLAG AFTER XFER 

2812 010436 000401 BR +4 


2813 010440 104271 ERROR 271 ;DATA COMPARE ERROR 


i 
A Serene df 





-e@ + en t4¢ 


——= 
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010476 


010500 
010504 


010510 
010512 
010514 
010516 
010520 
010522 
010524 


010526 


010542 
010544 
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020037 


000762 
032737 


001422 


012700 
012701 


020011 
001405 


005711 
100002 
104270 
000401 
104271 


020037 
001404 
005200 
062701 
000762 


000137 


011326 


000002 


000410 
001260 


000100 
011124 


011332 


000002 


006750 


MACY11 306(1063) 
757 


001252 
001144 
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4$: 


5$: 


o$: 


7$: 


8$: 


66 
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 


CMP RO.COEND ;ALL DONE? 

BEQ 5$ ;BR IF YES 

INC RO 

ADD #2,R1 

BR 3$ ;ELSE DO AGAIN 

BIT #<BI18:B113>,$LEVM ;CH 1 DROPPED OR NO WRAP 
BNE 8% ;BR IF EITHER SET 
CMP BASE1,$1KS 3CH 1 CONSOLE? 

BEQ 8$ ;BR IF YES 

MOV #100,R0 ;EXPECTED WORD 

MOV #CHITAB,R1 ; TABLE PIR 

CMP RO, (R1) sEXPECT = ACTUAL? 
BEQ 7$ ;BR IF YES 

TST (R1) ;ERROR SET? 

BPL .*6 ;BR IF NO 

ERROR 270 ;ERROR FLAG UP AFTER XFER 
BR 44 

ERROR 271 ;DATA COMPARE ERROR 
CMP RO,CIEND ALL DONE? 

BEQ 8$ ;BR IF YES 

INC RO 

ADD #2,R1 

BR 6$ sELSE DO AGAIN 

JMP NOTST 





SEQ 0064 
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CVAXAA.P11 
2846 
2847 
2848 
2849 
2850 010550 
2851 010554 
2852 010560 
2853 010562 
2854 010570 
2855 010572 
2856 010576 
2857 010602 
2858 010606 
2859 
2860 010610 
2861 010614 
2862 010620 
2863 010024 
2864 010630 
2865 
2866 010634 
2867 
2868 
2869 010636 
2870 010642 
2871 010646 
2872 010650 
2873 010656 
2874 010660 
2875 010664 
2876 010670 
2877 010674 
2878 
2879 010676 
2880 010702 
2881 010706 
2882 010712 
2883 010716 
2884 
2885 010722 
2886 
2887 
2888 
2889 
2890 
2891 010724 
2892 011124 
2893 011324 
2894 
2895 911324 
2896 011326 
2897 011330 
2898 011332 


MACY11 meee 
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013702 


000002 
013702 


042712 
000002 


013702- 
062702 


000002 


013702 
062702 
013712 
162702 
042712 


000002 


000100 
000100 


000000 
000000 
000000 
000000 


001254 
000002 


011324 


011324 
000002 
000190 


001254 


000100 


001260 
000002 


011330 


011330 
000002 
000100 


001260 
000006 
011330 
000002 
000100 


011326 


011332 


N 
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24 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 


,,eeeeererereererereeeeeteteeereeeteeeeeeeeeeeeeeeeeeeeeee eee eee 


ie START OF SERVICE ROUTINES 


;, eeeeerrerertererererererreee teeter eee eeneeeeneter 


ROSRV: MOV BASEO,R2 


ADD #2,R2 sPOINT TO RBUF 
MOV (R2),(RO)+ ;PUT IN TABL? 
CMP COXMIT, COEND ;LAST CHAR? 
BEQ 1$ ;BR IF YES 
INC COXMIT ;ELSE BUMP CHAR TO XMIT NEXT 
ADD #2,R2 ;POINT TO XCSR 
BIS WIE, (R2) ;RE-ENABLE 
1$: RT] 
XOSRV: MOV BASEO,R2 
ADD #6,R2 sPOINT TO XBuUF 
MOV COXMIT,(R2) >SHIP WORD 
SUB #2,R2 sPOINT TO XCSR 
BIC WIE, (R2) sDISABLE XMIT INTERR 
;RE-ENABLE IN REC HANDLER 
RTl 
RISRV: MOV BASE1,R2 
ADD #2,R2 P :POINT TO RBUF 
MOV (R2),(R1)¢ ;PUT IN TABLE 
CMP CIXMIT,CIEND ;LAST CHAR? 
BEQ 1$ ;BR IF YES 
INC C1XMIT sELSE BUMP CHAR TO XMIT NEX] 
ADD #2,R2 sPOINT TO XCSR 
BIS MIE, (R2) ;RE-ENABLE 
1$: RT] 
K1SRV: MOV BASE1,R2 
ADD #6,R2 :POINT TO XBUF 
MOV C1XMIT,(R2) :SHIP WORD 
SUB #2,R2 sPOINT TO XCSR 
BIC W1E,(R2) sDISABLE XMIT INTERR 
ate ;RE-ENABLE IN REC HANDLER 


see RECEIVER STATUS TABLES ** 


37 BIT wDS 8 BIT wDS 
CHOTAB: .BLikw 100 ; O- 37 O- 77 
CHITAB: .BLKW 100 > 40- 77 160-177 
STATEND: 
COMMIT: 0 sSTART WORD FOR CH 0: O 
COEND: O sEND WORD FOR CH 0: 37 OR 7° 
CIXMIT: O sSTART WORD FOR CH 1: 100 
CYEND: 0O 3s END WORD FOR CH 1: 137 OR 177 


SEQ 0065 
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68 
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING SEQ 0066 


CvVAXAA.P11 30-MAY-79 15:57 
2900 
+4 -SBTTL ROUTINE TO SIZE THE DEVICE MAP (SDEVM) & MEMORY 
2903 0113346 032737 100000 001252 SIZE: BIT #B1T15,$0EVM sTEST CH 9? 
2906 011342 001413 BEQ 1$ ;BR IF YES 
2905 011344 104401 013042 TYPE , CODROP 
2906 011350 032737 000400 001252 BIT #B118, SDE VM TEST CH 1? 
2907 011356 001414 BEQ 2$ BR IF YES 
2908 011360 104401 013072 TYPE ,C1DROP 
2909 011364 005237 011614 iNnC NOCHAN SET FLAG 
a 011370 000417 BR 4% 
2912 011372 032737 000400 001252 18: BIT #B118,SDEVM :TEST Cw 1? 
2913 011400 001403 BEQ 2$ ;BR IF YES 
2914 011402 104401 013072 TYPE .C 1DROP 
24h 011406 000406 BR 3$ 
2917 011410 023737 001260 001144 2%: CMP BASE1,$TKS 31S IT CONSOLE? 
2918 011416 001002 BNE 3$ ;BR IF NO 
£919 011420 104401 913122 TYPE -C1CON 
Sast 011424 005037 011614 3$: CLR NOCHAN 
2922 011430 632737 000005 001252 4%: BIT #B1T2,$DEVM ;DO RAM TEST? 
2923 011436 001402 BEQ 10% ;BR IF YES 
soos 011440 104401 013170 TYPE ,NORAM 
2926 011444 032737 000002 001252 108%: BIT #B1T1, SDEVM :D0 ROM TEST? 
2927 011452 001402 BEQ 5% ;BR IF YES 
cose 011454 104401 013145 TYPE ,NOROM 
9 
2930 011460 032737 000001 001252 5$: BIT #BITO,SDEVM sCLOCK DISABLED? 
2931 011466 001402 BEQ 6$ ;BR IF YES 
soet 011470 104401 013214 TYPE CLKEN 
2934 011474 012737 011636 000004 6%: MOV MINTSRV,ERRVEC ;SETUP TIMEOUT TRAP ADDR 
2935 011502 012737 000200 000006 MOV #200, ERRVEC+2 ;LOCKOUT INTERR 
ts 011510 005037 011644 CLR INTFLG 
2938 011514 012700 020000 MOV #20000,R0 sSIZE MEM. START WITH BOT OF 2°ND Ge 
44 011520 005001 CLR RI sMEM MAP, O=4K, 1=8K, ETC 
4 
2941 011522 011010 7$: MOV (RO), (RO) :D0 MOV INSTEAD OF ‘TST* 
2942 0115246 005737 011644 TST INTFLG ;GOT TIMEOUT INTERR? 
2943 011830 00100€ BNE 8$ ;BR IF YES 
2944 011532 005201 INC R1 
2945 011534 062700 020000 ADD #20000,R0 :GO0 TO BOT OF NEXT 4m 
2946 011540 020027 160000 CMP RO, #160000 BOT OF 32K? 
2947 011544 001366 BNE 7$ :BR IF NO 
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010037 
162737 
006301 

016137 
104401 

000000 
104401 


012737 
005037 


000207 
000000 


013244 


013306 
000000 


005237 
000002 


000000 
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011634 
000002 


011616 
013314 


000006 
000006 


011644 


011634 
011572 


000004 


3397 -PAY-79 15:58 PAGE 69 
NE TO SIZE THE DEVICE MAP ($OEVM) & MEMORY SEQ 0067 
MOV RO, MAXMEM 7 SAVE 
SUB #2 MAXMEM 20 BACK TO TOP OF LAST VALID BLOCK 
ASL RI “MULT BY 2 
MoV MEMTBL(RI).9$ 
TYPE 
98: “WORD 0 “MEM SIZE 
iyPE gE 
MOV WERRVEC +2 ERRVEC RESET TMO VECTOR 
CLR ERRVEC#2 
RTS PC 
NOCHAN: 0 :0 = CHANNEL(S) TO TEST 
“1 = NO CHANNELS TO TEST 
:MSG ADDRESSES 
MEMTBL: Mak ' Q0- 1777 
Max 20000 = 37776 
12K 40000 - 57776 
16K : 60000 = 77776 
m20K > 100000 = 117776 
24K > 120000 = 137776 - 
28K > 140000 = 157776 
MAXMEM: 0 sMAX MEMORY 
SBITL INTSRV INTERRUPT SERVICE ROUTINE , 
a THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 
Ve ‘INTFLG’ EACH TIME IT IS CALLED. IT ASSUMES 
7 THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
- 10 LOOK FOR, 
INTSRV: INC INTFLG :ADD 1 TO “INTERRUPT OCCURED’ FLAG 
RT] sTHAT'S ALL 
INTFLG: O 
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CVAKAA.Pi1 30-MAY-79 15:57 INTSRV INTERRUPT SERVICE ROUTINE SEQ 0068 
2990 ; 
244) -SBTTL ROUTINE TO SET UP FOR NEXT CHANNEL ADDRESS 
2993 sy te teeeererereererererreeeeerereteeeeteeeeeteeeeeeeeeneteeeeaeee 
2994 3° THIS ROUTINE CAUSES ADRS TO POINT TO THE 
2995 * ADDRESS OF CHANNEL UNDER TEST, ADRS #2 T0 
2996 3” POINT TQ THE VECTOR OF THE CHANNEL UNDER TEST. 

2997 set tererrererreererereeeteteeeeereteeeeeeeeteeeeeeeeeeteneeeneeee 
2998 
2999 011646 005737 011614 CYCLE: TST NOCHAN ;ANY CHANNELS TO BE TESTED? 
3000 011652 001401 BEG 1$ ;BR IF YES 
cond 011654 000207 RTS PC sELSE RETURN 
3003 011656 023727 001206 000002 I$: CMP SUNIT,#2° :DONE ALi AVAIL CHANNELS? 
3006 011664 001024 BNE 3$ :BR IF NO 
3005 011666 005037 001206 CLR $UNIT 
3006 011672 032737 002000 001252 BIT #B1T10,$DEVM >CHAN 0 DATA WRAP? 
3007 011700 001410 BEQ 2% :BR IF YES 
3008 011702 032737 000010 001252 BIT #B1T3,$DEVM ;CHAN 1 DATA WRAP? 
3009 011710 001404 BEQ 2$ ;BR IF YES 
3010 011712 104401 001310 TYPE , CARR 
+ 011716 000137 013334 JMP $EOP sELSE ALL DONE 
3013 011722 012737 000061 012312 2%: MOV M#TRUE , PHASE 2 
3014 011730 005037 012314 CiR PICNT 
ode 011734 000207 RTS PC 
6 
3017 011736 005737 001206 3$. TST $UNIT 7CHAN O TO BE TESTED? 
od 011742 001066 BNE 12% 3BR IF NO 
3020 011744 032737 100000 001252 BIT #BIT15,$DEVM :CHAN 0 TO BE TESTED? 
3021 011752 001403 BEQ 4$ :BR IF YES 
3022 011754 005237 001206 INC $UNIT 
roce 011760 000732 BR CYCLE :TRY OVER AGAIN FOR CHAN 1 
4 
3025 011762 013737 001254 001270 4$: MOV BASEO,DLADD 7SET CHAN 0 RCSR ADDR 
5: 011770 013737 001256 001302 MOV VECTO,DLVEC ; & VECTOR 
3028 011776 032737 040000 001252 BIT #B1114,$DEVM 78 BITS/WORD? 
3029 012004 001003 BNE 5$ ;BR IF NO 
3030 012006 005037 012300 CLR WORDL sELSE CLEAR TO DEFAULT & NC PARITY 
3031 012012 000402 BR ~*6- 
4 012014 005237 012300 5$: INC WORDL 37 BITS/WORD WiTH PARITY 
3034 012020 032737 010000 001252 BIT #B1T12,$DEVM :0DD PARITY? 
3035 012026 001003 BNE 7$ :BR IF NO 
3036 012030 005037 012302 CLR ODD ELSE CLEAR TO DEFAULT 
3037 012034 000402 BR .*6 
cae 012036 005237 012302 7$: INC ODD 
3040 012042 032737 004000 001252 Bl) #BiT11,$DEVM ;BREAK DETECTION ENABLED? 
3041 012050 001003 BNE 8$ :BR IF ES 
3042 012052 005037 012304 CLR BRK sELSE CLEAR TO DEFAULT 
3043 012056 000402 BR .*6 
3044 012000 005237 012504 &$: INC BRK 
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CVMXAA.P11 30-MAY-79 15:57 TINE TO SET UF FOR NEXT CHANNEc ADDRESS SEQ 0069 
3045 
3046 012064 032737 002000 001252 Bil #B1T10,S80EVM DATA WRAP AROUND? ‘ 
3047 012072 001003 BNE 9$ “BR IF NO 
3048 012074 005037 012306 CLR WRAP sELSE CLEAR TO DEFAULT 
3049 012100 000402 GR .*6 
eeet 012102 005237 012306 9$: INC WRAP 
3052 012106 005037 012310 108: CLR CONSOLE :CHAN 9 IS NO” CONSOLE 
3053 012112 005237 001206 11$: INC $UNIT : SETUP FOR NEXT TIME 
see 012116 000207 RTS PC 
3056 012120 032737 000400 001252 128: BIT #BiT8,$DEVM :CHAN 1 10 BE TESTED? 
3057 012126 001403 BEQ 13$ BR IF YES 
3058 012130 005237 001206 INC $UNIT 
oe 012134 000644 BR CYCLE :TRY OVER AGAIN FOR CHAN 1 
6 
3061 012136 013737 001260 001270 13%: MOV BASE1,DLADD sSET CHAN 1 RCSR ADDR 
aoe] 012144 013737 001262 001302 MOV VECT1,DLVEC ; & VECTOR 
6 
3064 012152 032737 900200 001252 BIT #B1T7,$DEVM :8 BITS/WORD? 
3065 012160 001003 BNE 14% ;BR IF NO 
3066 012162 005037 012300 CLR WORDL sELSE CLEAR TO DEFAULT & NO PARITY 
3067 012166 000402 BR .*6 
sor 012170 005237 012300 14$: INC WORDL 37 BITS/WORD wITH PARITY 
6 
3070 012174 032737 000040 001252 BIT #BITS,$DEVM sCDD PARITY? 
3071 012202 001003 BNE 16$ ;BR IF NO 
3072 012204 005037 012302 CLR ODD ELSE CLEAR TO DEFAULT 
3073 012210 000402 BR .*6 
re 012212 005237 012302 16$: INC ODD + 
3076 012216 032737 000020 001252 BIT #BIT4,$DEVM ;BREAK DETECTION ENABLED? 
3077 012224 001003 BNE 17$ :BR IF YES 
3078 012226 005037 012304 CLR BRK sELSE CLEAR TO DEFAULT 
3079 012232 000402 BR .*6 
root 012234 005237 012304 17$: INC BRK 
3082 0122460 032737 000010 001252 BIT #BIT3,$DEVM :DATA WRAP AROUND? 
3083 012246 001003 BNE 18% i ;BR IF NO 
3084 012250 005037 012306 CLR WRAP sELSE CLEAR TO DEFAULT 
3085 012254 000402 Be .*6 
ay 012256 005237 012306 188: INC wRAP 
3088 012262 023737 001260 001144 CMP BASE1,$TKS :CHAN 1 CONSOLE? 
3089 012270 001306 BNE 10$ :BR IF NO 
3090 012272 005237 012310 INC CONSOLE 
sed! 012276 000705 BR 11$ 
3093 012300 000000 WORDL: 0O sWORD LENGTH 0 = 8 BITS (NO PARITY), 1 = 7 BITS Cali PARITY) 
3094 012302 000000 ODD: 0 sODD PARITY 0 = ODD, 1 = EVEN 
3095 012304 000000 BRK: 0 :BREAK DET 0 = DISABL, 1 = ENABL 
3096 012306 000000 WRAP: 0 DATA WRAP 0 = YES, = NO 
3097 012310 000000 ‘ CONSOLE: 0 : CONSOLE QO = CH UNDER TES? NOT CONSOLE 
3098 i . 1 = CH UNDER TEST 1S CONSOLE 
3099 012312 000000 ; PHASE2: 0 
3100 012314 000000 PICNT: 40 ;CTR TO PRINT "PHASE 1° ONLY ONCE 
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CVMAKAA.P11 30-MAY-79 15:57 ROUTINE TO SET UP FOR NEXT CHANNEc ADDRESS SEQ 0070 | 
3101 
3102 
3103 . ppereeeeererrerrerrerererereretererereteeteneneeeeteneerereterere 
3104 sROUTINE TO DISPLAY CURRENT DEVM & ALLOW OPERATOR TO INPUT NEW VALUE. 
3105 se eeeneererererrererreresterterererererentareeeeeeeneAeAaeeeTenes 
3106 
3107 012316 104401 013233 GISDEV: TYPE ,DEVM > SHOW CURRENT 
3108 012322 013746 001252 MOV $DEVM,-(SP) >: SAVE SDEVM FOR TYPEOUT 
3109 012326 104402 TYPOC >:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
aay 012330 104401 014752 TYPE , SMNEW 3GET NEW 
3112 012334 005046 1$: CLR -(SP) ZCLR CIR 
Bh 012336 005046 CLR -(SP) CLR NEW DEVM 
3115 012340 105777 1666090 28: TSTB astKs CHAR THERE? 

3116 012344 100375 BPL 2% ;BR IF NO 
3117 012346 117746 166574 MOVB a$TKB,-(SP) ;ELSE GET CHAR 
A 012352 042716 177600 BIC #°C177, (SP) MAKE 11 7 BIT ASCII 
3120 012356 021627 900015 3$: CMP (SP) ,#15 3<CR>? 
3121 012362 001017 BNE 7$ :BR IF NO 
3122 012364 005766 000004 TST 4 (SP) sELSE 1S IT 1°ST CHAR? 
3123 012370 001403 BpEQ 4% sBR IF YES 
3124 012372 016637 000002 001252 MOV 2(SP),$DEVM sELSE SAVE NEW DEVM 
3125 012400 104401 001171 4$: TYPE ,SCRLF 
3126 012404 004737 011334 o$: JSR PC,SIZE sRE-SIZE 
3127 012410 062706 000006 ADD #6,SP sRESET STACK 
3128 012414 012716 002004 MOV #RAMROM, (SP) 
94 012420 000002 RT] 
3131 012422 004737 014052 7$: JSR PC, STYPEC ECHO CHAR 
3132 012426 021627 000060 CMP (SP), #60 CHAR < 0? 
3133 012432 002420 BLT 9% :BR IF YES 
3134 012434 021627 000067 CMP (SP), #67 :CHAR > 7? 
3135 012440 003015 2G! 9% :BR IF YES 
3136 012442 042726 000060 Bic #60,(SP)¢ STRIP OFF ASCII 
3137 012446 005766 000002 TST 2(SP) s1°ST CHAR? 
3138 012452 001403 BEG 8% :BR IF YES 
3139 012454 006316 ASL (SP) sELSE SHIFT PRESENT CHAR 
3140 012456 006316 ASL (SP) >TO MAKE ROOM 
ted! 012460 006316 ASL (SP) :FOR NEW ONE 
4 » 
3143 012462 005266 000002 8%. INC 2(S5P) sKEEP CHAR CT 
3144 012466 056616 177776 BIS -2(S5P), (SP) SET IN NEW CHAR 
ee 12472 000722 BR 2$ :GET NEW ONE 
46 
3147 12474 104401 


0 
0 
0 001170 9$: TYPE ,SQUES 

3148 012500 104401 001171 TYPE SCRLF 
012504 005726 TST (SP)¢ sRESET PIR 
012506 005016 CLR (SP) sCLR DEVM 
012510 000713 fied 2% ;TRY AGAIN 
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3196 012634 
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012701 
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005777 
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000004 


012562 


000010 
177777 
177754 


000004 


177777 


000022 
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G 
15:58 PAGE 73 
ROUTINE TO SET UP FOR NEXT CHANNE. ADDRESS 


> PROGRAM TIMERS 


’ 
sp eeenererereeererrererereresereresereneerennenaeernasesenesesaee 


TIMER: 


38: 
4%: 


REGHLD: 
BITHLD: 


TIMERI: 


1$: 
2%: 


3$: 
4$: 


WAT: 


@(R5)+,REGHLD 
(R5)+,BITHLD 


#10,R1 


#-1,R0 
rer 


(R5)+,REGHLD 
#10,R1 


@-1,R0 
@REGHLD 


#4 ,R5 





;DOUBLi LOOP 


;BIT TRERE? 
;BR IF YES 


sALL TIMED OUT 
7 JUMP OVER ERR ON RETURN 


REGISTER TO BE TESTED 
;BIT TO BE TESTED IN REGISTER 


> ZERO? 
;BR IF NO 


sALi TIMED OUT 
; JUMP OVER ERR ON RETURN 


SEQ 0071 
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3200 

3201 012642 
3202 012662 
3203 012670 
3206 012710 
3205 912716 
3206 012726 
3207 012744 
3208 

3209 012752 
3210 012760 
3211 

3212 012762 
3213 013000 
3214 013006 
3215 013026 
3216 013034 
3217 013040 
3218 

3219 

3220 013042 
3221 013050 
3222 013056 
3223 013064 
3224 013072 
3225 013100 
3226 6013106 
3227 013114 
3228 013122 
3229 013130 
3230 013136 
3231 013144 
3232 013145 
3233 013152 
3234 013160 
3235 013166 
3236 013170 
3237 013176 
3238 013204 
3239 013212 
3240 013214 
3241 013222 
3242 013230 
3243 013233 
3244 013240 
3245 013244 
3246 013251 
3247 013256 
3248 013204 
3249 013272 
3250 013300 
3251 013306 
3252 013314 
3253 013322 
3254 013330 
$255 
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113737 


104401 
000207 


041600 
020060 
047111 
050117 


015334 
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001114 


001200 


0011/71 


040510 


047523 


047522 
052123 
051501 


040522 
052123 
051501 


047514 
040516 


001176 


000005 


oon—-oOOon— 


042523 
020115 
041040 
042523 


045503 
046102 


046526 


052116 
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ROUTINE TO SET UP FOR NEXT CHANNE. ADDRESS 


MYTYPE: 


CODROP: 


- C1IDROP: 


C1CON: 


NOROM: 


NORAM: 


CLKEN: 


DEVM: 


M4K: 
M&K : 
M12K: 
M16K: 
M20K: 
M24K: 
M28K: 
MEM: 


T¢PTXT 
TYPOCT 
TYPTXT 
MOVB 

TYPOCS 
TYPTXT 
TYPOCT 


CMP 
BM] 


TYPTXT 
TYPOCT 
TYPTXT 
TYPOCT 
TYPE 
RTS 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCI2 


<<CCRLED®TEST @ > 
STESTN 
<®#, ERROR @# > 


SITEMB,SFATAL ; APT FATAL ERROR NUMBER 


SFATAL 

<* PC = @> 
SERRPC 
STESTN, #5 ;DOING SLU TESTS? 
1$ ;BR IF NO 

<#,(CSR: *> sELSE PROCEED 
DLADD 

<*, VECTOR: *#> 

DLVEC 

 SCRLF 

PC 


<CRLF>/CHAN O TESTING DROPPED/ 
<CRLF>/CHAN 7 TESTING DROPPED/ 
<CRLF>/CHAN 7 1S CONSOLE/ 
<CRLF>/ROM TEST BYPASSED/ 
<CR><LF>/RAM TEST BYPASSED / 


<CRLF>/CLOCK ENABLED/ 


<CRLF>/DEVM = / 


<CRO><LFE>/4K/ 
<CR><LE>/8K/ 
<CR><LF>/12K/ 
<CR><LF>/16K/ 
<CR><LF>/20K/ 
<CR><LF>/24K/ 
<CRO<LF>/28K/ 

/ MEM PRESENT /<CR>«K LF > 


SEQ 0072 | 
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013454 


000004 


000240 
000137 
002004 
377 
015 


050040 
000043 
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-SBTTL END OF PASS ROUTINE 


ppeeeeeeeeererererereetererteerererereeeteneeteneeeeeeeneneeenete 
;*INCREMENT THE PASS NUMBER ($PASS) 

;*INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

*TYPE “‘END PASS #XXXXX'' (WHERE XXX 1S A DECIMAL NUMBER) 

;*1F THERES A MONITOR GO TO IT 

:*1F THERE ISN'T JUMP TO RAMROM 


SEOP: 
SCOPE 
001102 CLR STSTNM >; ZERO THE TEST NUMBER 
001160 CLR STIMES 3;ZERO THE NUMBER OF ITERATIONS 
001202 INC $PASS >; INCREMENT THE PASS NUMBER 
100000 601202 Blc #100000,$PASS ;:;DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ = sL00F 7? 
$EOPCT: .WORD 1 
BGT $DOAGN So VES 
MOV (PC)+,a(PC)+ > RESTORE COUNTER 
SENDCT: . WORD 1 
SEOPCT 
013441 TYPE »SENDMG >: TYPE ‘‘END PASS #"' 
00120? MOV $PASS,-(SP) 7; SAVE SPASS FOR TYPEOUT 
TYPDS 3:GO TYPE--DECIMAL ASCII WITH SIGN 
013456 TYPE » SENULL >: TYPE A NULL CHARACTER 
000042 $GET42: MOV a#42,R0 3;GET MONITOR ADDRESS 
BEQ $DOAGN > :BRANCH IF NO MONITOR 
RESET >: CLEAR THE WORLD 
$SENDAD: JSR PC, (RO) 3:60 TO MONITOR 
NOP 37;SAVE ROOM 
NOP 3 FOR 
NOP s3ACT11 
$DOAGN: 
JMP a(PC)+¢ > RETURN 
S$RINAD: WORD RAMROM 
377 000 $ENULL: .BYTE -1,-1,0 sNULL CHARACTER STRING 


042412 042116 SENDMG: .ASCIZ <15><42>/END past a/ 
051501 020123 


SEQ 0073 | 


J 
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CVAKAA.P11 30-MAY-79 15:57 POWER DOWN AND UP ROUTINES SEQ 0074 © 
44 -SBTTL POWER DOWN AND UP ROUTINES 
3297 ppt eeeeererererereerereereerereerererretereeeeeneeereetenearenes 
3298 | POWER DOWN ROUTINE 
3299 013456 012737 013622 000024 S$PWRDN: MOV M$ILLUP ,a#PWRVEC ;;SET FOR FAST UP 
3300 013464 012737 000340 000026 MOV #340, ,a@PWRVEC*+2 ;;PRIO:7 
3301 013472 010046 MOV RO,-(SP) > PUSH RO ON STACK 
3302 013474 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
3303 013476 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
3304 013500 010346 , MOV R3,-(SP) 3;PUSH R3 ON STACK 
3305 013502 010446 MOV R4,-(SP) 3;PUSH R& ON STACK 
3306 013504 010546 MOV R5,-(SP) 3;PUSH RS ON STACK 
3307 013506 017746 165426 MOV aSWR,-(SP) +3 PUSH @SWR ON STACK 
3308 013512 010637 013626 MOV ?. SSAVRO 7: SAVE SP 
3309 013516 012737 013530 000024 MOV #SPWRUP, aePWRVEC 3;SET UP VECTOR 
3310 013524 000000 HALT 
3311 013526 000776 BR .72 >; HANG UP 
3312 
3313 ORR Ree eee AeA eee eee eee eee eee eee AAA teee eee eee 
3314 POWER UP ROUTINE 
3315 013530 012737 013622 000024 $PWRUP: MOV MSILLUP ,a#PWRVEC ;;SET FOR FAST DOWN 
3316 013536 013706 013626 MOV SSAVRO, SP 1081 SP 
3317 013542 005037 013626 CLR SSAVRO sWAIT LOOP FOR THE TTY 
3318 013546 005237 013626 1$: INC SSAVRO sWAIT FOR THE INC 
3319 013552 001375 BNE 1$ ;OF WORD 
3320 013554 012677 165360 MOV (SP)+,aSWR sPOP STACK INTO aSwWR 
3321 013560 012605 MOV (SP)+,R5 ‘pop STACK INTO RS 
3322 013562 012604 MOV (SP)+,R4 3;POP STACK INTO R4& 
3323 013564 012603 MOV (SP)+,R3 3;POP STACK INTO R3 
3324 013566 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
3325 013570 012601 MOV (SP)+,R1 3;POP STACK INTO R1 
3326 013572 012600 MOV (SP)+,RO :;POP STACK INTO RO 
3327 013574 012737 013456 000024 MOV ASPWRON, Q#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
3328 013602 012737 000340 000026 MOV #340, ,a#PWRVEC+2 ; =PRIO: 7 
3329 013610 104401 TYPE : REPORT THE POWER FAILURE 
3330 013612 013630 $SPWRMG: .WORD SPOWER >;POWER FAIL MESSAGE POINTER 
3331 013614 012716 MOV (PC)+, (SP) > RESTART AT START 
3332 013616 001370 $PWRAD: .WORD START > RESTART ADDRESS 
3333 013620 000002 RT] 
3334 013622 000000 $ILLUP: RALT >: THE POWFR UP SEQUENCE WAS STARTED 
3335 013624 000776 BR .7e >; BEFORE THE POWER DOWN WAS COMPLETE 
3336 013626 000000 $SAVRE: 0 >;PUT THE SP HERE 
3337 013630 005015 047520 042527 $POWER: .ASCIZ <15><12>''POWER"’ 
3338 013636 000122 
33439 EVEN 
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TYPE ROUTINE 
~SBTTL TYPE ROUTINE 


5  eeeereececeoceccccrsesserereceseoenccesenoneeseseeeoeoenoeecees 
>*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
>*THE ROUTINE WILL JNSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


;*NOTE1: 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


> *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
*NOTE: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
>*CALL: 


31) ae A TRAP INSTRUCTION 


SEQ 0075 


za TYPE »MESADR > ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
> *#0R 
pe TYPE 
3f MESADR | 
e 
$TYPE TSTB STPFLG ::1S THERE A TERMINAL? | 
BPL 1$ :;BR IF YES 
HALT s;HALT HERE IF NO TERMINAL 
BR 3$ 3: LEAVE 
1$ MOV RO,-(SP) 7; SAVE RO 
MOV a2 (SP) ,RO 3:GET ADDRESS OF ASCIZ STRING 
CMPB #APTENV,SENV ; ; RUNNING IN APT MODE 
BNE 62$ NO,GO CHECK FOR "* _ CONSOLE 
BITB #APTSPOOL ,SENVM >: SPOOL MESSAGE TO A 
BEQ 62% ::NO,GO CHECK FOR CONSOLE 
MOV RO,61$ >;SETUP MESSAGE ADDRESS FOR APT 
JSR PC, $ATY3 3;SPOOL MESSAGE TO APT | 
61$: . WORD 0 3: MESSAGE ADDRESS | 
62$: BITB #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
BNE 60$ ss VES. SKIP TYPE OuTl | 
2s: MOVB (RO)+,=(SP) >;PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4% :;BR IF IT ISN'T THE TERMINATOR 
TST (SP)+* sz 1f TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,R0 i RESTORE RO 
3$: ADD #2,(SP) sADJUST RETURN PC 
RTI : = RETURN 
4$: CMPB #HT, (SP) > BRANCH IF COAT Dsante ees ee 
BEQ 8% 
CMPB @CRLF, (SP) ::BRANCH IF NOT <CRLF> 
BNE 5$ 
TST (SP)+¢ s;POP <CR><LF> EQUIV 
TYPE 3: TYPE A CR AND LF 
$CRLF 
CLRB $CHARCNT >; CLEAR CHARACTER COUNT 
BR 2$ ::GET NEXT CHARACTER 
5$: JSR PC ,STYPEC 3;60 TYPE THIS CHARACTER 
6$: CMPB SFILLC,(SP)* si1S IT TIME FOR FILLER CHARS, ? 
BNE 2$ 3: 1f NO GO GET NEXT CHAR. 
MOV $NULL = (SP) 3:GET # OF FILLER CHARS. NEEDED | 
7: AND THE NULL CHAR, 
7$: DECB 1(SP) ;;DOES A NULL NEED TO BE TYPED? 
BLT 6$ ::BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC ,STYPEC 3:G0 TYPE A NULL 
DECB $CHARCNT :;D0 NOT COUNT AS A COUNT 
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7$ 3;LOOP 

PROCESSOR 

oe CSP) ; REPLACE TAB WITH SPACE 

PC, STYPEC s; TYPE A SPACE 

#7,$CHARCNT ;;BRANCH IF NOT AT 

9$ 3; TAB STOP 

(SP)¢ 3;POP SPACE OFF STACK 

2% 3;GET NEXT CHARACTER 

astPs ;;WAIT UNTIL PRINTER IS READY 
$TYPEC 

2(SP) ,a$TPB :;LOAD CHAR TO BE TYPED !NTO DATA REG. 
@CR,2°SP) 3:18 CHARACTER A CARRIAGE RETURN? 
1$ :;BRANCH IF NO 

SCHARCNT tr YES--CLEAR CHARACTER COUNT 
$TYPEX ssEXIT 

WULF ,20SP) >;1S CHARACTER A LINE FEED? 
STYPEX > ;BRANCH IF YES 

(PC)+ :;COUNT THE CHARACTER 

0 >; CHARACTER COUNT STORAGE 


PC 
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-SBTTL TTY INPUT ROUTINE 


**@M@Raeeeeeteereteteteteteeeeeeeeeteteeeeeeteteeeeeeteteeeeeeneneeee 


“ENABL LSB 


ppeeeeeereeerreeererreetertereeeerertreeeeneneeeereReereneeeeeese 
*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

s*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WIL 

s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SwITC H REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE . 


$CKSWR: CMP #SWREG, SWR ;1S THE SOFT-SWR SELECTED? 
BNE 15% BRANCH 1F NO 
TSTB astKs >;CHAR THERE? 
BPL 15$ ::1F NO, DON'T WAIT AROUND 
MOVB a$TKB,-(SP) 3; SAVE THE CHAR 
BIC #*C177, (SP) >;STRIP-OFF THE ASCII 
CMP #7,(SP)¢ 3:18 11 A CONTROL G? 
BNE 15$ >:NO, RETURN TO USER 
CMPB $AUTOB,#1 > ARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ > BRANCH IF YES 
TYPE »SCNTLG >;ECHO THE CONTROL-G (“°G) 
$GTSWR: TYPE , SMSWR >; TYPE CURRENT CONTENTS 
MOV SWREG,-(SP) 3; SAVE SWREG FOR TYPEOUT 
TYPOS ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 


TYPE , SMNEW ;;PROMPT FOR NEW SWR 


19$: CLR -(SP) 3: CLEAR COUNTER 
CLR -(SP) >: THE NEW SWR 
7$: TSTB astKs :;CHAR THERE? 
BPL 7$ sr 1F NOT TRY AGAIN 
MOVB a$TKB,-(SP) 3:P1ICK UP CHAR 
BIC #*C177, (SP) s;MAKE IT 7-BIT ASCII 
CMP (SP) #3 3:18 117 A CONTROL-C? 
BNE 9$ :;BRANCH IF NOT 
TYPE ,SCNTILC >:YES, ECHO CONTROL-C (“C) 
ADD #6,SP ::CLEAN UP STACK 
CMPB SINTAG,#1 : ;REENABLE TTY KEYBOARD INTERRUP{S? 
BNE 8$ :;BRANCH IF NO 
MOV #100,a8TKS s;ALLOW TTY KEYBOARD INTFRRUPTS 
8$: JMP GIS$DEV >: CONTROL=-C RESTART 
9$: CMP (SP) ,#25 3:15 17 A CONTROL-U? 
BNE 10% :;BRANCH IF NOT 
TYPE »SCNTLU ::YES, ECHO CONTROL-U (“U) 
208: ADD #6,SP 3; 1GNORE PREVIOUS INPUT 
BR 19% ::LET'S TRY IT AGAIN 
10$: CMP (SP) ,#15 zr1S 171 A <CR>? 
BNE 16% > ;BRANCH IF NO 
TST 4 (SP) si: YES, IS 17 THE FIRST CHAR? 
BEQ 11$ > :BRANCH IF YES 
MOV 2(SP) ,aSWR 77 SAVE NEW SWR 


SEQ 0077 
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11$: ADD #6,SP 3;CLEAR UP STACK 
14%: TIPE »SCRLF 3;ECHO <CR> AND < 
CMPB SINTAG, #1 3; ;RE-ENABLE TTY ody INTERRUPTS? 
BNE i5$ ;;BRANCH IF NOT 
MOV #100, astKs 3; RE-ENABLE TY KBD INTERRUPTS 
15$: RT] 3 ;RETURN 
168: JSR PC, STYPEC 3;ECHO CHAR 
CMP (SP) ,#60 3; CHAR < 0? 
BLT 18$ ;;BRANCH IF YES 
CMP (SP) , #67 7;CHAR > 7? 
BGT 18% ;;BRANCH IF YES 
BIC #60,(SP)¢ s;STRIP-OFF ASCII 
TST 2(SP) 3:18 THIS THE FIRST CHAR 
BEQ 17% ;;BRANCH IF YES 
ASL (SP) ::NO, SHIFT PRESENT 
ASL (SP) 33 CHAR OVER TO MAKE 
ASL (SP) ei ROOM FOR NEW ONE. 
17$: INC 2(SP) 37KEEP COUNT OF CHAR 
BIS -2(SP), (SP) 3:SET IN NEW CHAR 
BR 7$ 3:GET THE NEXT ONE 
18%: TYPE ,SQUES si; TYPE ?<CR><LF> 
20% 3; SIMULATE CONTROL =U 


BR 
-DSABL LSB 


;,eeteeetererererererereeetereeeeeeeeeeeteeeeeeteeeeeneeeereeeeennene 


>*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


s*CALL: 
;* RDCHR >: INPUT A SINGLE CHARACTER FROM THE TITY 
3 RETURN HERE 3: CHARACTER IS ON THE STACK 
if ;zW1TH PARITY BIT STRIPPED OFF 
$RDCHR: MOV (SP) ,-(S?) 3:PUSH DOWN THE PC 

MOV 4(SP),2(SP) s;SAVE THE PS 
1$: TSTB astKs >;WAIT FOR 

BPL 1% 377A CHARACTER 

MOVB a$1KB,4(SP) 3;;READ THE TTY 

BIC #*°C<177>,4(SP) 3;GET RID OF JUNK IF ANY 

CMP 4(SP) ,#23 3731S IT A CONTROL=S? 

BNE 3$ > ;BRANCH IF NO 
2s: ‘STB astKs > ;WAILT FOR A CHARACTER 

BPL e$ 3;LOOP UNTIL ITS THERE 

MOVB a$1KB,-(SP) 3;GET CHARACTER 

BIC #°C177, (SP) >;MAKE IT 7-BIT ASCII 

CMP (SP)+,#21 3:18 17 A CONTROL-Q? 

BNE 2$ ::1F NOT DISCARD IT 

BR 1$ 3: YES, RESUME 
3$ CMP 4(SP),#140 ::1S 11 UPPER CASE? 

BLT 4% > ;BRANCH IF YES 

CMP 4(SP),#175 z71S8 17 A SPECIAL CHAR? 

BGT 4 > BRANCH IF YES 

BIC #40,4(SP) 7 ;MAKE IT UPPER CASE 
4%: RT] ::GO0 BACK TO USER 


*s@@eererterteeetereeeeteeeeeeterereketeeteeeeeteteteeeeeeeeeeeeenese 


>@TH]S ROUTINE WILL INPUT & STRING FROM THE TTY 
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CVAKAA PT? -MAy=79 15:57 TTY INPUT ROUTINE SEQ 0079 

3531 2 *CALL: 

3532 :° ROLIN ; INPUT A STRING FROM THE TTY 

35° 3° RETURN HERE ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
‘ .* TERMINATOR WILL BE A BYTE OF Ait O°S 

> 

3536 014564 010346 SROLIN: MOV R3,-(SP) 5 SAVE R3 

3537 014566 012703 014712 1$: MOV #STTYIN,RS GET ADDRESS 

3538 0146572 022703 014722 28: CMP WSTTYINGB.R3 =; ;BUFFER FULL? 

3539 014576 101415 BLOS 4$ ::BR IF YES 

3540 014600 104410 RDCHR ;GO_ READ ONE CHARACTER FROM THE TTY 

3541 014602 112613 MOVB = (SP) +, (R3) ::GET CHARACTER 

3542 014604 122713 000003 CMPB #3, (R3) 3318 11 A CONTROL-C? 

3543 014610 001005 BNE 10$ ;;BRANCH IF NO 

3544 016612 104401 014722 TYPE =, SCNTLC :;TYPE A CONTROL=C (“C) 

3545 014016 012603 MOV (SP)+,R3 ; RESTORE R3 

3546 014620 000137 012316 JMP GTSDEV ;;GOTO CONTROL=C RESTART 

3547 014624 122713 000177 10$: CMPB) #177, (R3) 1S 11 A RUBOUT 

3548 014630 001003 BNE 3$ :3SKIP IF NOT 

3549 014632 104401 001170 4$: TYPE  SQUES s3TVPE A °?° 

3550 014636 000753 BR 1$ ::CLEAR THE BUFFER AND LOOP 

3551 014640 411337 014710 3$: MOVB = (R3) , 9$ ;;ECHO THE CHARACTER - 

3552 014644 104401 014710 TYPE =, 98 

3553 014650 122723 000015 CMPB #15, (R3)4 ::CHECK FOR RETURN 

3554 014654 001346 BNE 2$ ;;LOOP IF NOT RETURN 

3555 014656 105063 177777 CLRB = =1(R3) :3CLEAR RETURN (THE 15) 

3556 014662 104401 001172 TYPE —_, SLF ;; TYPE A LINE FEED 

3557 014666 012603 MOV (SP)+,R3 ;;RESTORE R35 

3558 014670 011646 MOV (SP) ,-(SP) ;; ADJUST THE STACK AND PUT ADDRESS OF THE 

3559 014672 016666 000004 000002 MOV 4(SP),2(SP) 3 FIRST ASCII CHARACTER ON IT 

3560 014700 012766 014712 000004 MOV WSTTYIN,G(SP) 

3561 014706 000002 RTI ; ;RETURN 

3562 014710 000 9$: -BYTE 0 eens FOR ASCII CHAR. 10 TYPE 

2563 014711 000 -BYTE 0 ; TERMINATOR 

3564 014712 009010 STTYIN: .BLKB 8. ;RESERVE 8 BYTES FOR Tiy INPUT 

3565 014722 041536 005015 000 $CNTLC: LASCIZ /#C/<15><12> CONTROL * 

3566 014727 136 006525 000012 $SCNTLU: .ASCIZ /*U/<15><12> 5 CONTROL Hy 

3567 014734 043536 005015 000 $CNTLG: .ASCIZ /*G/<15><12> 5; CONTROL "6" 

3568 014741 015 051412 051127 $MSWR: .ASCIZ <15><12>/SWR = / 


3569 014746 036440 000040 

3570 014752 020040 042516 020127 S$MNEW: .ASCIZ / NEW = / 

3571 014760 020075 000 

3572 014764 -EVEN “ 
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372 .SBTTL APT COMMUNICATIONS ROUTINE 

3575 ppeeeeeereereerererrrerererererereerereereeeeerereeeteReerererere 
3576 014764 112737 000001 015230 $ATY1: MOVB #1, SFFLG 2:10 REPORT FATAL ERROR | 
3577 014772 112737 000001 015226 $ATY3: MOVB #1, $MFLG ::10 TYPE A MESSAGE 
3578 015000 000403 ble SATYC | 
3579 015002 112737 000001 015230 $ATY4: MOVB #1, SFFLG 5:10 ONLY REPORT FATAL ERROR | 
3580 015010 $ATYC 
3581 015010 010046 MOV RO,-(SP? ::PUSH RO ON STACK | 
3582 015012 010146 “MOV R1,-(SP) +;PUSH R1 ON STACK 
3583 015014 105737 015226 TSTB $MFLG :;SHOULD TYPE A MESSAGE? 
3584 015020 001450 BEC 5$ :1f NOT: BR 
3585 015022 122737 000001 001214 CMPB #APTENV, SENV ; [OPERATING UNDER APT? | 
3586 015030 001031 BNE 3$ ;:1F NOT: BR 
3587 015032 132737 000100 001215 BITB #APTSPOOL ,SENVM SHOULD SPOOL MESSAGES? 
3588 015040 001425 BEQ 3$ gaat NOT: BR 
3589 015042 017600 000004 MOV a4 (SP) ,RO :GET MESSAGE ADDR. | 
3590 015046 062766 000002 0000064 ‘ ADD #2,4(SP) :;BUMP RETURN ADDR. 

3591 015054 005737 001174 1$:> TST SMSGTYPE ::SEE IF DONE W/ LAST XMISSION? 

3592 015060 001375 BNE 1$ ss1F NOT: WAIT | 
3593 015062 010037 001210 MOV RO, $MSGAD ::PUT ADDR IN MAILBOX | 
3594 015066 105720 , 28: TSTB (RO) + ::F IND END OF MESSAGE 
3595 015070 001376 ; BNE 2% | 
3596 015072 163700 001210 SUB $MSGAD,RO ::SUB START OF MESSAGE 
3597 015076 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
3598 015100 010037 001212 MOV RO, $MSGLGT ::PUT LENGTH IN MAILBOX 

3599 015104 012737 000004 001174 MOV #4, SMSGTYPE ::TELL APT TO TAKE MSG. 

3600 015112 000413 BR S$ 
3601 015114 017637 000004 015140 38: MOV a4 (SP) ,4$ ::PUT MSG ADDR IN JSR LINKAGE 
3602 015122 062766 000002 000004 ADD #2,4(SP) ::BUMP RETURN ADDRESS 

3603 015130 013746 177776 MOV 177776,-(SP) ::PUSH 177776 ON STACK 

3604 015134 004737 013640 JSR PC $TYPE >:CALL TYPE MACRO 

3605 015140 000000 4$: WORD 0 
3606 015142 5$: 
3607 015142 105737 015230 108: TSTB SFFLG ::SHOULD REPORT FATAL ERROR? | 
3608 015146 001416 BEQ 12% sr 1F NOT: & 
3609 015150 005727 001214 TST SENV > RUNNING UNDER APT? | 
3610 0151546 001413 BEQ 12% ::1F NOT: BR 
3011 015156 005737 001174 11$: TS! SMSGTYPE :sFINISHED LAST MESSAGE? | 
3612 015162 001375 BNE 11$ :1F NOT: WAIT 
3613 015164 017637 000004 001176 MOV a4(SP),$FATAL  ::GET ERROR # 

3614 015172 062766 000002 000004 ADD #2,4(SP) ::BUMP RETURN ADDR. 

3615 015200 005237 001174 INC SMSGTYPE >:TELL APT TO TAKE ERROR 

3616 0152046 105037 015230 128: CLRB SFFLG >:CLEAR FATAL FLAG 
3617 015210 105037 015227 CLRB $LFLG >:CLEAR LOG FLAG 
3618 0152146 105037 015226 CLRB $MFLG >:CLEAR MESSAGE FLAG 
3619 015220 012601 MOV (SP)+,R1 ::POP STACK INTO RI 

3620 015222 012600 MOV (SP)*,RO ::POP STACK INTO RO 

3621 015224 000207 RTS PC > RETURN 

3622 015226 000 $MFLG: .BYTE 0 7: MESSG. FLAG 

3623 015227 000 $LFLG: .BYTE 0 ::L0G FLAG 

3624 015230 000 SFFLG: BYTE O srFATAL FLAG 

3625 015232 EVEN 

3626 000200 APTSIZE=200 

3627 000001 APTENV=001 


3628 000100 . APTSPOOL = 100 
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ppeeeeeereeerererrerereerereeterrerereeeneereneeeeerereerereeerest 
>*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
> *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
7*AND GO TO MYTYPE ON ERROR 

>*THE SWITCH OPTIONS PROVIDED 8Y THIS ROUTINE ARE: 


3*SWw15=1 


$SERROR: 
7$: 


20$: 


21$: 


228: 
2$: 


3$y 
4$: 


5$: 


6$: 


HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 


N 7; ERROR=EMT AND N=ERROR ITEM NUMBER 


7: TEST FOR CHANGE IN SOFT=SWR 
SERFLG ;;SET THE ERROR FLAG 
7$ ;:DON'T LET THE FLAG GO TO ZERO 
STSTNM,QDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 


#B1T10,aSwWR 7;BELL ON ERROR? 

1$ 3;NO - SKIP 

»SBELL s:RING BELL 

SERTIL >: COUNT THE NUMBER OF ERRORS 

(SP), SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
#2,SERRPC 


Q@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 


#B1113,aSWR 7:SKIP TYPEOUT IF SET 
20% 7: SKIP TYPEOUTS 
PC ,MYTYPE ;:GO TO USER ERROR ROUTINE 


,SCRLF - 


MAPTENV,SENV 7;RUNNING IN APT MODE 


2$ ::NO,SKIP APT ERROR REPORT 
$1TEMB,21$ ::SET ITEM NUMBER AS ERROR NUMBER 
PC, SATY4 ::REPORT FATAL ERROR TO APT 

0 

9 

22% ::APT ERROR LOOP 

aSWR >;HALT ON ERROR 

3$ =:SKIP IF CONTINUE 


>; HALT ON ERROR! 
7: TEST FOR CHANGE IN SOFT=SWk 


#B1T09,aSWR ;;LOOP ON ERROR SWITCH SET? 
4% ::BR IF NO 

SLPERR, (SP) >:FUDGE RETURN FOR LOOPING 
SESCAPE 77 CHECK FOR AN ESCAPE ADDRESS 


5$ ::BR IF NONE 
SESCAPE,(SP) s: FUDGE RETURN ADDRESS FOR ESCAPE 


#@SENDAD ,a#42 p3ACT#11 AUTOACCEPT? 
6$ 7; BRANCH IF NO 
33 YES 


si RETURN 


SEQ 0082 


F 
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one .SBTTL SCOPE HANDLER ROUTINE 
3686 pp ereerererrerereerererererereretererenenenterereneeneeeeeeeeeees 
3687 >*TH]S ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
3638 :*AND LOAD THE TEST NUMBER‘STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
3689 :*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
3690 s*THE SWITCH OPTIONS PROVIDED 8Y THIS ROUTINE ARE: 
3691 7*SW14=1 LOOP ON TEST 
3692 3*Swil=1 INHIBIT ITERATIONS 
3693 7*SwO09=1 LOOP ON ERROR 
3694 >*SwO08=1 LOOP ON TEST IN SWR<7:0> 
3695 s*CALL 
3696 5% SCOPE :;SCOPE=l101T 
3697 
3698 015432 $SCOPE: 
3699 015432 104407 CKSWR ::TEST FOR CHANGE IN SOF T=<SWR 
3700 015434 032777 040000 163476 18: B1T #B11T14,aSWR ; + LOOP ON PRESENT TEST? 
3701 015442 001114 8NE SOVER sYES IF Swi4=1 
3702 sAMMHASTART OF CODE FOR THE XOR TESTERMMAMA 
3703 615444 000416 $XTSTR: BR 6$ >: 1f RUNNING ON THE ‘'XOR'' TESTER CHANGE 
3704 ::THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
3705 015446 013746 000004 MOV ~ QWERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
3706 015452 012737 015472 000004 MOV #5$,QWERRVEC ::SET FOR TIMEOUT 
3707 015460 005737 177060 TST a#177060 ::TIME OUT ON XOR? 
3708 015464 012637 000004 MOV (SP)+,@MERRVEC ;;RESTORE THE ERROR VECTOR : 
3709 015470 000463 BR $SVLAD :;GO TO THE NEXT TEST 
3710 015472 022626 S$: CMP (SP)+,(SP)¢ ore THE STACK AFTER A TIME QUT 
3711 015474 012637 000004 MOV (SP)* ,a#ERRVEC sRESTORE THE ?ROR VECTOR 
* 3712 015500 000423 BR 7$ sLOOP ON THE ’RESENT TEST 
3713 015502 6%:;MA08HEND OF CODE FOR THE oR’ TESTERMAMAM 
3714 015502 032777 000400 163430 BIT #B11T08,aSWR ;LOOP ON SPEC. TEST? 
3715 015510 001404 BEQ 2$ ;BR IF NO 
3716 015512 127737 163422 001102 CMPB aSwR,STSTNM ON THE A gece TEST? SwWR<7:0> 
3717 015520 001465 BEQ SOVER ::BR IF 
3718 015522 105737 001103 2$: TSTB SERFLG i 3 HAS AN. sanen OCCURRED? 
3719 015526 001421 ; BEQ 3$ :BR IF NO 
3720 015530 123737 001115 001103 CMPB SERMAX ,SERFLG MAX, ERRORS FOR THIS TEST OCCURRED? 
3721 015536 101015 BHI 3$ ::BR IF NO 
3722 015540 032777 001000 163372 BIT #B1T09,aSWR >;LOOP ON ERROR? 
3723 015546 001404 BEQ 4% >7;BR IF NO 
3724 015550 013737 001110 001106 7$: MOV SLPERR,$SLPADR ::5E1T LOOP ADDRESS TO LAST SCOPE 
3725 015556 000446 is SOVER 
3726 015560 105037 001103 4$: CLRB SERFLG >: ZERO THE ERROR FLAG 
3727 015564 005037 001160 CLR STIMES >: CLEAR THE NUMBER OF ITERATIONS 10 MAE 
3728 015570 000415 BR 1$ ESCAPE TO THE NEXT TEST 
3729 015572 032777 004000 163340 38: BIT #B1T11,aSWR >: INHIBIT ITERATIONS? 
3730 015600 001011 BNE 1$ >:BR IF YES 
3731 015602 005737 001202 TST $PASS iil FIRST PASS OF PROGRAM 
3732 015606 001406 BEQ 1$ INHIBIT ITERATIONS 
3733 015610 005237 001104 INC $1CNT >: INCREMENT ITERATION COUNT 
3734 015614 022737 001160 001104 CMP $TIMES,SICNT >; CHECK THE NUMBER OF ITERATIONS MADE 
3735 015622 002024 BGE $SOVER ::;BR IF MORE ITERATION REQUIRED 
3736 «60156246 012737 000001 001104 1$: MOV #1 ,$10NT s:REINITIALIZE THE I]TERATION COUNTER 
3737 015632 013737 015710 001160 MOV SMXCNT,STIMES ::SE1T NUMBER OF ITERATIONS TO DO 
3738 015640 105237 001102 $SVLAD: INCB $1STNM >: COUNT TEST NUMBERS 
3739 015646 113737 001102 001200 MOVB STSTNM,STESTN >:SET TEST NUMBER IN APT MAIL BON 











CVMKAAQ MXV1TA DIAG MACY11 306(1063) 


SCOPE HANDLER ROUTINE 


1632460 $OVER: 
M 
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(SP), $LPADR >; SAVE SCOPE LOOP ADDRESS 
(SP) ,SLPERR 3;SAVE ERROR LOOP ADDRESS 
SESCAPE >;CLEAR THE ESCAPE FROM ERROR ADDRESS 
#1, SERMAX ;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
STSTNM,QDISPLAY ;;DISPLAY TEST NUMBER 
SLPADR, (SP) ;;FUDGE RETURN ADDRESS 

so FIMES PS 


77MAX. NUMBER OF ITERATIONS 
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CVMKAA.P11 30-MAY-79 15:57 CONVERT BINARY TO DECIMAL AND TYPe ROUTINE SEQ 0085 
ie .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
3750 sp ereerererrerererererererrererererenereneneeretenennneeerereneeee 
3751 :*THIS ROUTINE IS USED 10 CHANGE A 16-BIT BINARY NUMBER T0 A 5-DIGIT 
3752 >*SIGNED DECIMAL (ASCI1) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
3753 > *NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
3754 ;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
3755 s*REPLACED WITH SPACES. 
3756 *@CALL: 
3757 if MOV NUM ,=(SP) :7PUT TRE BINARY NUMBER ON THE STACK 
3758 29 TYPDS 3;;G0 TO THE ROUTINE 
3759 
3760 015712 STYPDS: 
3761 015712 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
3762 015714 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 
3763 015716 010246 MOV R2,-(SP) >:PUSH R2 ON STACK 
3764 015720 010346 MOV R3,-(SP) :;PUSH R3 ON STACK 
3765 015722 010546 MOV R5,-(SP) >:PUSH R5 ON STACK 
3766 015724 012746 020200 MOV #20200,-(SP) 77;SE1T BLANK SWITCH AND SIGN 
3767 015730 016605 900020 MOV 20(S5P),R5 7;GET THE INPUT NUMBER 
3768 015734 100004 BPL 1$ :;BR IF INPUT IS POS. 
3769 015736 005405 NEG R5 > ;MAKE THE BINARY NUMBER POS. 
3770 015740 112766 000055 000001 MOVB @'-,1(SP) 77MAKE THE ASCI] NUMBER NEG. 
3771 015746 005000 1$: CLR RO 3:ZERO THE CONSTANTS INDEX 
3772 015750 012703 016126 MOV #$0BLK,R3 >;SETUP THE OUTPUT POINTER 
3773 015754 112723 000040 MOVB a’ ,(R3)¢ ji SET THE FIRST CHARACTER TO A BLANK 
3774 015760 005002 2$: CLR R2 ;:; CLEAR THE BCD NUMBER 
3775 015762 016001 016116 MOV $DTBL(RO),RI tt THE CONSTANT 
3776 015766 160105 3$: SUB R1,R5 sFORM THIS BCD DIGIT 
3777 015770 002402 BLT 4% ;BR IF DONE 
3778 015772 005202 INC R2 > INCREASE THE BCD DIGIT BY } 
3779 018774 000774 ie 3$ 
3780 015776 060105 4%: ADD R1,R5 :;ADD BACK THE CONSTANT 
3781 016000 005702 TST R2 >; CHECK IF BCD DIGIT=0 
3782 016002 001002 BNE- 5$ :>;FALL THROUGH IF 0 
3783 016004 105716 TS1B (SP) — DOING LEADING 0°S? 
3784 016006 100407 BM] 7$ = IF YES 
3785 016010 106316 5$: ASLB (SP) MSD? 
3786 016012 103003 =; BCC 6$ BR IF NO 
3787 016014 116663 000001 177777 MOVB 1(SP),-10R3) >YES=-SET THE SIGN 
3788 016022 952702 000060 6$: BIS #'0O,R2 «MAKE THE BCD DIGIT ASCII 
3789 016026 052702 000040 7$: BIS a’ ,R2 >:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
3790 016032 110223 MOVB R2,(R3)* 3;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3791 016034 005720 TS] (RO) + 3; JUST INCREMENTING 
3792 016036 020027 000010 cme RO,#10 ::CHECK THE TABLE INDEX 
3793 016042 002746 BLT 2% 3:60 DO THE NEXT DIGIT 
3794 0160044 003002 BGT 8% =:60 10 EXIT 
3795 016046 010502 MOV R5,R2 ::GET THE LSD 
3796 016050 000764 BR 6% 3:;G0 CHANGE TO ASCI1 
3797 016052 105726 8$: 1S1B (SP)¢ > ;WAS THE LSD THE FIRST NON-ZERO? 
3798 016054 100003 BP 9$ 3:BR IF NO 
3799 016056 116663 177777 177776 MOVB -1(SP),-2(R3) sSYES@-SET THE SIGN FOR TYPING 
3800 016064 105013 9$: CLRB (R3) ::SE1T THE TERMINATOR 
3801 016066 012605 MOV (SP)+,R5 s;POP STACK INTO R5 
3802 016070 012603 MOV (SP)¢,R3 >;POP STACK INTO R43 a 


280% 016072 012602 MOY (SP)¢,R2 ::POP STACK INTO Re H 
















] 
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3804 016074 012601 “es MOV (SP)+,R1 3;POP STACK INTO R1 

3805 016076 012600 MOV (SP)+,RO 3;POP STACK INTO RO 

3806 016100 104401 016126 TYPE , SOBLK ;;NOW TYPE THE NUMBER 

3807 016104 016666 000002 000004 MOV 2 (SP) ,4 (SP) ;; ADJUST THE STACK 

3808 016112 012616 MOV (SP)+, (SP) 

3809 016114 000002 RT] 7 ;RETURN TO USER 

3810 016116 023420 $DTBL: 10000. 

3811 016120 001750 1000. 

3812 016122 000144 100. 

3813 016126 000012 10 


3B14 016126 000004 $SDBLK: .BiKw 4 


J 
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are -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

3817 Sp eeteneereeerrerererereerrerseseerererentereneeeareteetereneeeese 

3818 >*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

3819 >*OCTAL (ASCI1) NUMBER AND TYPE IT. 

3820 Es eeree HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
s*C ALL 

3822 :* MOV NUM, =(SP) : ;NUMBER TO BE TYPED 

3823 ; TYPOS >;CALL FOR TYPEOUT 

3824 i -BYTE ON ::N=1 TQ 6 FOR NUMBER OF DIGITS TO TYPE 

3825 st BYTE M >:M=1 OR O 

3826 :* ::1=TYPE LEADING ZEROS 

+434 * >;0=SUPPRESS LEADING ZEROS 

3829 > *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

3830 :*$TYPOS OR $TYPOC 

3831 s*CALL: 

3832 :e MOV NUM, =(SP) : NUMBER TO BE TYPED 

ty °e TYPON 3:CALL FOR TYPEOUT 

4 oa 

3835 :*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

3836 s*CALL: 

3837 yf MOV NUM,-(SP) > NUMBER TO BE TYPED 

ts :* TYPOC >:CALL FOR TYPEOUT 

3840 016136 017646 000000 $1YPOS: MOV a(SP),-<(SP) ::PILKUP THE MODE 

3841 916142 116637 000001 016361 MOVB 1(Sh), SOF ILL :;LOAD ZERO FILL SWITCH 

3842 016150 112637 016363 MOVB (SP)+,$OMODE*+1 ;::NUMBER OF DIGITS TO TYPE 

3843 016154 062716 000002 ADD #2, (SP) >: ADJUST RETURN ADDRESS 

3844 016160 000406 He $TYPON 

3845 016162 112737 000001 016361 $TYPOC: MOVB #1, SOF ILL ::SET THE ZERO FILL SWITCH 

3846 016170 112737 000006 016363 MOVB #6, $OMODE +1 SET FOR SIX(6) DIGITS 

3847 016176 112737 000005 016360 $TYPON: MOVB #5,S$0CNT :;SET THE ITERATION COUNT 

3848 016204 010346 MOV R3,-(SP) >; SAVE R3 

3849 016206 010446 MOV R4,-(SP) > SAVE RS 

3850 016210 010546 MOV R5,-(SP) > SAVE R5 

3851 016212 113704 016363 MOVB SOMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 

3852 016216 005404 NEG R4 

3853 016220 062704 000006 ADD #6 RS ::SUBTRACT IT FOR MAX. ALLOWED 

3854 016224 110437 016362 MOVB R4, SOMODE >:SAVE IT FOR USE 

3855 016230 113704 016361 MOVB SOFILL,R4S 3:GET THE ZERO FILL SWITCH 

3856 016234 016605 000012 MOV 12(SP),R5 s:PICKUP THE INPUT NUMBER 

3857 016240 005003 CLR R3 >:CLEAR THE OUTPUT WORD 

3858 016242 006105 1$: ROL RS :;ROTATE MSB INTO ‘'C"’ 

3859 016244 000404 BR 3$ 3;G0 DO MSB 

3860 016246 006105 2%: ROL R5 :;FORM THIS DIGIT 

3861 016250 006105 ROL R5 

3862 016252 006105 ROL R5 

3863 016254 010503 MOV R5,R3 

3864 016256 006103 2$: ROL R3 ::GET LSB OF THIS DIGIT 

3865 016260 105337 016362 DECB SOMODE si TYPE THIS DIGIT? 

3866 016264 100016 BPL 7$ ::BR IF NO 

3867 016266 042703 177770 BIC #177770,R3 ::GET RID OF JUNK 

3868 016272 001002 BNE 4$ >: TEST FOR 0 

38609 016274 005704 1S] RG >; SUPPRESS THIS 0? 


3870 016276 001403 BEQ 5% 3;BR IF YES 
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005204 
052705 
052703 
110337 
104401 
105337 


000000 


000060 
000040 
016356 
016356 
016360 


000002 000004 





asaae MAY-79 


4$: 
5$: 


7$: 


6$: 


8$: 
$OCNT: 


SOFILL: . 
$OMODE : 


K 
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(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
2(SP),4(¢SP) 
(SP)+, (SP) 


ooo°co°o 


;;DON'T SUPPRESS +NYMORE 0°S 
;;MAKE THIS DIGIT ASCII 
>;MAKE ASCII] IF NOT ALREADY 


3; SAVE FOR T 


YPING 


3;G0 TYPE THIS DIGIT 


;;COUNT BY 1 
;;BR IF MORE 
:3BR IF DONE 


; INSURE LAST DIGIT ISN'T A BLANK 


TO DO 


360 DO THE LAST DIGIT 


;RESTORE R5 
TERESTORE R4 
stat ta R3 


SET THE STACK FOR RETURNING 


7 RETURN 


3:STORAGE FOR ASCII DIGIT 


>; TERMINATOR FOR TYPE ROUTINE 


;;OCTAL DIGIT COUNTER 


sr ZERO FILL 


SWITCH 


>;NUMBER OF DIGITS TO TYPE 


SEQ 0088 







L 
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3906 016404 


3911 016406 
3912 016410 
3913 016416 


3922 016420 
3923 016422 
3924 016424 
3925 016426 
3926 016430 
3927 016432 


3929 016434 


3931 016436 
3932 016440 
3933 016442 
3934 016444 


010046 
016600 000002 
005740 
111000 


006300 
016000 016420 
000200 


011646 
016666 000004 000002 
000002 


016406 
013640 
016162 
016136 
016176 
015712 


014172 
014122 
014444 


014564 
012316 


000001 


-SBTTL TRAP DECODER 


ppeeeeeerererereereeerereeererereeerereeeeereeeeteteeeeeeeenerees 
s*THIS ROUTINE WiLL PICKUP THE LOWER BYTE OF THE “‘TRAP’’ INSTRUCTION 
7*AND USE 11 TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
7*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 7; SAVE RO 
MOV 2(SP),RO 3;GET TRAP ADDRESS 
TST - (RO) ;;BACKUP BY 2 
MOVB (RO) ,RO ;:GET RIGHT BYTE OF TRAP- 
ASL RO >;POSITION FOR INDEXING 
MOV STRPAD(RO),RO ;; INDEX TO TABLE 
RTS RO 3:GO TC ROUTINE 


3; THIS 1S USE TO HANDLE THE ‘'GETPRI*’ MACRO 


$TRAP2: MOV (SP) ,-(SP) 3;MOVE THE PC DOWN 
MOV 4(SP),2(SP) >;MOVE THE PSW DOWN 

RT] >;RESTORE THE PSW 
-SBTTL TRAP TABLE 


7*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE ‘‘TRAP’’ INSTRUCTION. 


: ROUTINE 


$TRPAD: .WORD $TRAP2 


$TYPE ;;CALL=TYPE TRAP#+1(104401) TTY TYPEQUT ROUTINE 


$TYPOC ;;CALL=TYPOC TRAP#2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(194403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 

$GTSWR =; ;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 

$CKSWR ;;CALL=CKSWR TRAP*+7(104407) TEST FOR CHANGE IN SOF T=SWR 

$RDCHR ;;CALL=ROCHR TRAP#10(104410) TTY TYPEIN CHARACTER ROUTINE 

SRDLIN ;;CALL=RDLIN TRAP#11(104411) TTY TYPEIN STRING ROUTINE 

GI$DEV ;;CALL=GIDEVM = TRAP#12(104412) “C WILL OPEN UP DEV MAP 


;MAX ADDR FOR 4K ALLOWED FOR APT = 17400 
MAX ADDR FOR 5K FOR ABS LOADER ONLY = 17500 
~END 


a na 
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931 


1286" 


932 


36274 3661 
36288 


904 
929 


2688 2693 2754 2850 2860 


3025 
2617 2668 2699 2704 2767 27? 


6 


2825 


2869 


2879 


291i? 


SEQ 0090 


306) 


OOOO aeV—eV— 


ee a ee Cite 


S3ssSxscese 
WFWN—oO 
" 


hunnnnennnn nnn nnn henna 


_— ee et et Ot ge et et et et et et et et et et gt 
ViFWMUnNn—-OoO O@O~ 


hk ig a tt ht 
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31768 
2425 2455 2930 
789 


2926 
2745 


3700 
2655 
2467 
2666 


2821 
1140 
1464 


3078* 
3010 


3699 
1327 
1831 


3247 
3202 


N 
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2800 


2745 
2922 
2765 


2906 
1155 
1467 


3080+ 


39318 


1981 
3248 
3220 


2345 


3006 


2800 
2821 


2912 
1158 
1480 


5095« 


2031 
3249 
3224 


27508 


3046 


2903 
3008 


3056 
1165 
1486 


2113 
3250 
3228 


23598 





3649 


3020 
3082 


1174 
2407 


2561 


SEQ 0091 


1223" 12318 
2496 


3090" 8630978 
3419 
3380 3419 


cd 


SSS SSS 


— — 
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DISPLA 001142 8718 1019" 1027" 35648 3744e 

DISPRE 000174 8018 1027 

DLADD § 001270 9598 1344 1346 1349 1352 2546 3025* 3061" 3214 

DiLvVEC 301502 9648 1956 2035 2208 2548 3026" 3062" 3216 

DONE = 900200 775@ = =1765 1775 1803 1814 1846 1917 2137 2414 2508 2600 2625 

DSWR = 177570 6738 870 1018 

EMTVEC= 000030 7o62# = =1002* 1003¢ 

ERRCHK 006746 246046" 2425* 26328 2446* 2455 2461 2467 2474 25238 

ERRCNT 006200 2223" 2253 2262 2308# 2320 2354" 24418 

ERRFLG 004370 1658" 1695* 1710 17408 

ERROR = 100000 780# 1876 1934 2146 2265 2343 

ERRVEC= 000004 755#@ 1016 1017# = 1028* 1183" 1184" 1207* 1208" 1245" 1246" 1282" 1283* 13768 
1377* =61392% = 1393" §=—2934e = 2935" = 2.957* =. 2958" = 705 3706" 3708" 37118 

EXFLG 004372 1660" 1721" 1728" 1732 17418 

Ex 006176 2187 23048 

EX2 006744 2397 2520" 

FRERR = 020000 782 82275 2429 

GNS = teeeee J 800 1054 2537 2542 2545 2547 2549 3202 3204 3207 32138 3215 3923 
3924 3925 3926 3927 3929 3931 3932 3933 3934 

GIDEVM= 104412 1060 3934e 

GTSWR = 104406 1049 39298 

GTSDEV 012316 3107" 3460 3546 3934 

HIROM 001266 950# 1260 1277 

HT = 000011 6654 3378 3419 

JE = 000100 7768 788" =§=1508 1523 1536 1539 1552 1556 1577 1589 1592 1605 


20 
70 1974 2003 2047 2064 2087 2235 2238 2258 2260 
70 2593 2595 2618 2620 2689 2695 2700 2706 2755 


INTABL 010040 2576" 2577 2578 2579 2642 2645 2658 2662 2671 2675 27158 

INTFLG 011644 1253 1255 1270* 1272 1300* 1311 1319 1382* 1384 19548 1976 1988 2006* 
2013 2044" 2067 2074 2090* 2096 2936" 2942 2985* 29888 

INTSRV 011636 975 1245 1298 1376 1958 2036 2934 29854 

1OTVEC= 000020 . 7608 1000* 1901* 

LF = 000012 6664 3236 3245 3246 3247 3248 3249 3250 325) 3252 3413 3419 

LOOP 003126 13308 2561 

LOROM 001264 9554 1252 1269 

MAXMEM 011634 1085 1095 1124 11°6 1178 1186 1216 2969" 2950" 29748 

MEM 013314 2955 3252a 

MEMTBL 011616 2952 29664 

MODTST 007264 1362 25644 

MYTYPE 012642 32018 3658 

m12K 013256 2968 3247m 

M16K 013264 2969 32488 

M20K 013272 2970 3249" 

M24K 013300 2971 3250" 

M28K 013306 2972 32514 

M4K 013244 2966 3245a 

MBK 013251 2967 3246" 

NOCHAN 011614 1226 1337 2909" 29208 29628 2999 

NORAM 013170 2924 32368 

NOROM 013145 2928 32328 

NOTST 006750 25258 = 2 B44 ' , 

NUMBER 006202 2229" 22318 2244 2309# 2318 2350 2361 

ODD 012302 2437 30368 3038« 3072e 3074¢ 30948 

ORERR = 040000 7818 1861 1894 1922 2268 

PASS 004 366 1653* 17138 1715 17398 
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PERR = 010000 783#@ 82282 2439 2444 

PHASE2 012312 1332e 1360 2534 2553 2555" 3013¢ 30998 

PIRQ = 177772 6728 

PIRQVE= 000240 7668 

PRO = 000000 689" 1972 2051 2206 2648 2791 

PRI = 000040 6908 

PR2 = 000100 691" 

PR3 = = 000140 692a 

PRG = 000200 693" 

PRS = 000240 69448 , 

PR6 = 000300 6954a oa 

PR7 == 000340 696" 976 1377 1501 1959 2037 2101 2213 2219 2582 2588 2590 2613 
2615 2652 2744 2750 2752 2772 2774 2797 

PS = 177776 6698 670 

PSwW = 177776 6704 

PWRVEC= 000024 761# 1006* 1007* 3299« 3300* 3309e 3315¢ 3327« 3328 

PICNT 012314 1334" 2539 2542" 3014" 31008 . 

RAMROM 002004 1064# 3128 3290 . 

RBUF 001274 Bet Ferg 1347* 1399 1811 1857 1894 1922 1934 2143 2340 2419 2449 

4 

RCSR 001272 960" 13448 1380 1395 1577 1589* 1592 1605* 1608 1621* 1625 1764 1775 
1006 1814 1845 1916 2047* 2064 2087* 2136 2238% 2260 23528 2364 2413 

RDCHR = 104410 3540 39320 

RDLIN = 104411 3933" 

RDWRD 002556 11498 1150 11738 1174 12324 

RDY = 000200 7878 1634 1672 1690 1703 1965 2058 2127 

REC 006242 2211 23388 

REGHLD 012562 31598 3164 3175#@ 8 3179* 3183 

RESVEC= 000010 756 

RHLD 006 346 2265 2268 2275 2282 2340" 2343 2545 23778 

ROSRvV 010550 7749 28504 

RISRV 010636 <77)1 28698 

SAVBK 002560 1140* 11418 1142 , 1143 1147* 1148 1159 11548 1155 12338 

SET = 177777 769% 1695 1710 | 1721 1728 1732 

SIZE 011334 1062 29038 3126 

SLU 003112 1332a@ 

STACK = 001100 6604 998 1064 1336 

START 001370 B04 989 9918 3332 

STATEN 0113246 2740 28938 

SIKLMT= 177774 67148 

SwR 001140 870" 996 1018* 1020 1026* 1033« 1047 2532 3307 3320¢ 3429 3q740 4649 
3656 3068 3672 3700 3714 3716 3722 3729 

SWREG 000176 802" 1026 1047 3429 3442 

SwO = 000001 7248 

S#w00 = 000001 7148 724 

swO1 = 000002 7138 723 . 

SwO2 = 000004 712e 722 . rs 

sw0O3 = 900010 711@ 721 ‘ 7 

Sw04 = 900020 7108 720 . 

$w05 = 000040 709# 719 . 

Sw06 = 000100 (08a 718 

SWwO7 = 000200 707# 717 

SwO8 = 000400 706@ 716 

SwO9 = 001000 705@ 715 

Sw = 000002 7238 





a i ee 
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SwiG = 002000 7048 

o€11 = 004000 7038 

Swi2 = 010000 702@ 

Sw13 = 020000 701@ 

Swi4 = 040000 700" 

Swi5 = 100000 699" 

Sw2 = 000004 7220 

Sw3 == 000010 7214 

SwW4 = 000020 7208 

Sw5 = =_: 000040 7198 

SkW6 = 000100 7188 

Sw7 = 008200 717" 

Sw8 = 000400 7168 « 

SwW9 = 001000 7158 < 

TBITVE= 000014 757" \- 

TBUF 001300 9634 1352 1353 1407 1668 1676e 1685¢ 17618 1799¢ 1842 1852 1913¢ 2@0e 
2054* 20938 2133 2326e 26108 2504" 4 

TCSR 001276 9624 1349* 1350* 1403 1436 14488 1451 14648 1467 1480 1486 1508 1520¢ 
1523 1536 1539 1552" 1556 1634 1671 1677 1690 1702 1964 1970" 1974« 
2003* 2057 2126 2235e 2c 5Be 23298 2370¢ 2407 24868 2489 24968 

TIMER 012512 ere 1701 1763 1801 1844 1915 1963 2056 2°25 2135 2412 2488 2506 
2159" 

TIMER] 012566 1975 2066 31798 

TKVEC = 000060 7am { 

TMP] 001304 9668 22438 2246 25998 2602* 2624 26278 

TMP2 001306 907 22428 22488 

TPVEC = 000064 7658 

TRAN 006204 2217 23178 

TRAPVE= 000034 7o3a 10048 1005¢ 

TRPCAT 001312 974a 

TRIVEC= 000014 7588 . 

TRUE = 000001 771\4@ 1360 2534 2553 3013 * 

TST] 002010 1075@ ’ 

TST10 003766 15688 

TST11 004152 1635 10468 

TST12 004374 1651 1674 1705 17488 

T8113 004476 1753 1755 1767 17858 

TST14 =©004574 1790 1792 1805 18258 

TST15 005020 1830 1832 1848 1867 1884 1900 1919 1929 19508 

TST16 ©=©6.005232 1967 1978 20254 

TST17 = 005464 2030 2032 2060 2069 21078 

TS12 002102 1080 1096 11134 

T$120 005654 2112 2114 2129 2139 2157 2162 21798 

7$721 006350 2305 23878 

TST22 006750 2416 2492 2510 2521 25298 

7$723 }=©007264 25724 

18124 010050 2680 27318 

$13 002562 1198 1227 1239@ 

TS14 002746 1244 1284 12918 

1ST5 003256 1372a 

TST6 003426 14214 

1S17 003612 1428 14964 

TYPDS = 104405 2550 3279 3927a 

TYPE = 104401 1041 1228 1339 2537 2542 2545 2547 2549 2550 2557 2905 2908 2914 
2919 2924 2928 2932 2953 2955 3010 3107 3110 312 314? 3148 3202 
3204 3207 3213 3215 3216 3277 3280 3329 3383 3440 344) 3444 Ba54 





| 
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3465 3476 3495 3544 3549 3552 3556 3651 3659 3806 3875 39238 
TYPOC = 104402 2546 2548 3109 3203 3208 3214 3216 3443 39248 
TYPON = 104404 39268 
TYPOS = 104403 3206 3925" 
VECTO 001256 9524 2586 2748 3026 
vECT1 001262 954# 2611 2770 3062 
WAIT 012630 1853 1984 2012 2071 2095 2498 3195¢@ 
wORDL 012300 2154 2164 2227 2435 3030¢ 3032 3066¢ 3068 3093" 
WRAP 012306 1752 1789 1829 2029 2111 2183 2391 3048« 3050« 3084« 3086* 30968 
KXOSRV 010610 2751 28604 , 
XISRV 010676 2773 28798 
SAPTHD 001000 830 836" 
SASTAIT= eeeeee 3607 3622 
SATYC 015010 3578 3580" 
SATY1 014764 35768 
$ATY3 014772 3368 35778 
$ATY4 015002 35798 3664 
SAUTOB 001134 867" 1051* 3437 3572 
SBASE 001250 931" 
$BDADR 001122 8628 
SBDDAT 001126 8644 
SBELL 001164 882" 3651 3684 
SBGNLE= 177777 634" 
SCHARC 014116 3385 3395* 3402 34118 34168 
$CKSWR 014122 34294 3931 


001100 994 1002 1008 1009 1010 


3125 3148 3216 3724 3419 3476 3565 3659 3684 


1117 1243 1305 2583 2606 2639 2655 2666 2745 2759 2765 
2821 2903 29016 2912 2922 2926 2930 3006 3008 3020 3028 
3046 3056 3064 3070 3076 3082 3108 31248 


3288" 

3284" 3679 

1058 3363 3585 3609 3661 

3365 3370 3547 

2558 3011 32658 

3276 

3684 3689 37°8 3720 37268 3748 

3720 3743* 3748 

1464@ 1465 14804 148) 15208 1521 15368 1537 15528 1553 15898 
1606 16214 16’2 1683@ 1654 1658 1059 166004 166! 16688 1669 
1695#@ 1696 17 3 1714 17214 1722 17288 1729 17o\8 1762 17998 
1812 18424 1843 18528 1853 1857#@ 1858 19138 1914 19708 1971 
2003# 2004 2006# 2007 2010# 2011 20448 = 2045 20478 2048 20548 
2065 20878 2088 20908 2091 20938 2094 21178 2118 2120 2124 
21438 892144 e20B8 2209 o2lle 22i2 221388 83962214 22\7e 2218 ooo 
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2220 222358 2224 22258 2226 22358 2236 22388 2239 22588 2259 22608 2261 
232468 2325 2329" 2330 23408 2341 23508 2351 2352#@ 2353 23548 2555 23598 
2360 23648 2365 23708 2371 24048 2405 2407# 2608 24108 2411 24198 2420 


24258 = §=—2426 24328 2433 24868 2487 24968 2497 25018 2502 25048 2505 
SERROR 015232 1002 36448 
SERRPC 001116 8608 3208 3653" 3654" 3655 3684 


SERRTB 001254 949" 
SERTTL 001112 857# 2550 2552 3552¢ 3684 
SESCAP 001162 8Bla 1010* 36075 3677 3634 3742" 
SETABL 001214 900" 
SETEND 001254 842 933" 
SFATAL 001176 893 3204" 3206 3613* 
SFFLG 015230 3576« 3579« 3607 3616¢ 36248 
SFILLC 001156 878" 3388 3419 
S$FILLS 001155 877# 3419 
SFSAND= 000310 - 6348 143 1453 1469 1488 1510 1525 154] 1558 1579 1594 1610 1627 
1692 1712 1717 1777 1816 1863 1878 1896 1924 1936 1983 1990 2076 
2148 2264 2267 2270 2277 2284 2320 2345 2363 2423 2431 2457 2463 
2469 2476 2516 
$FSBAD= 000401 6344 1438 1453 1469 1488 1510 1525 1541 1558 1579 1594 1610 1627 
1692 1712 Wtf 1777 18°6 1863 1878 1896 1924 1936 1983 1990 2076 
2148 2264 2267 2270 2277 2284 2322 2348 2363 2423 243! 2457 2463 
2469 2476 2516 
$FS$BLA= 000170 6348 
$FSCAS= 000150 6348 
$FSDEC= 000220 634" 
$F $GO0= 000400 6348 1436 1451 1467 1486 1508 1523 1539 1556 1577 1592 1608 1625 
1690 1710 1715 1775 18°4 1861 1876 1894 1922 1934 1981 1988 2074 
2146 2262 2265 2268 2275 2282 2318 2343 2361 242) 2429 2455 2461 
2467 2474 2514 
$F$if = 000110 6344 1436 14641 1451 1436 1467 1472 1486 1491 1508 1513 1523 1528 
1539 1544 1556 1561 1577 1582 1592 1597 1608 1613 1625 1630 1690 
1699 1708 1710 1715 1723 1725 1730 1775 1780 1814 1820 1861 1869 
1876 1886 1894 1902 1922 193) 1934 1940 1981 1988 1993 1995 2074 
2079 2146 2151 2262 2265 2268 2273 2275 2280 2282 2287 2292 2296 
2301 2303 2318 2320 2326 2343 2345 2356 2361 2366 2372 23746 2421 
2427 2429 2434 2455 26459 2461 2465 2467 2472 2474 2480 25146 2519 
$FSINC= 000210 634H 2117 2173 
$F$L00= 000200 6348 1655 1732 1735 
$*'SNAM= 000160 6348 
$F$NO = 000403 0348 1436 1453 1467 1486 1508 1923 1539 1556 1577 1592 1608 1625 
1690 1710 1715 1775 1814 1861 1876 1894 1922 1934 198) 1988 2074 
2146 2262 2265 2268 2275 2282 2318 2320 2343 2345 2361 2429 2455 
2461 2467 2474 
$#$or = 000320 634" 1438 1453 1469 1448 1510 1525 1541 1558 1§79 1594 1610 1627 
1692 1712 1717 1777 1816 1863 1878 1896 1924 19%6 1983 1990 2076 
2148 2264 2267 2270 2277 2284 2320 2322 2345 2363 2423 243) 457 
2463 2469 2476 2516 
$FSRIN= 000300 6348 
$FSSEL= 900140 6348 
$F SUNT= 000130 6344 
$'$wH!= 000120 6344 2320 2345 
$FSvES- 000402 1436 1451 1467 1486 1508 1523 1539 1556 15§7? 1592 1608 1H25 
1710 1715 1775 18'4 1861 1876 1894 1922 1934 198) SRR 7% 
2262 2265 2268 2275 2282 2318 2320 2343 2345 2361 242" 429 
2461 2467 2474 25146 
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$GDADR 001120 8614 

SGDDAT 001124 8638 

$GET42 0135412 32818 

SGTSWR 014172 34418 3929 

$HD = 000000 645 

$H1BTS 001000 837" 

$SICNT 001104 8548 3733" «3734 3736" 3767 

SIFLEV= 177777 6348 146368 16418 16518 1656 16678 146728 1486 14918 15088 15138 1525 15288 
1539@ 8 =6154646# 1556 15618 1577 15828 1592 1597 16084 16134 16254 63508 16908 
1708 17108 1715@ 17238 8 1730# 17758 1780# 1814 18208 1861 18698 18764 18868 
18948 1902# 1922 1931# 19346 19408 19818 19884 1993 1995# 2074# 2079H 21468 
21518 2262 22658 22688 2277 2284 22928 =—23018 = 23038 = 318M = 2326 2 545H ble 


23728 374M 421K 427TH 4 29H 4848 2655H — 2459H 661M = 26658 467 a7 2H Ob 7h8 


24808 25148 25198 

SILLUP 013622 3299 3315 33348 

SINTAG 001135 868" 3457 3477 3572 

$1SKO = 000001 14364 1441 14514 1456 14578 1472 14868 1491 15084 1513 15234 1528 15398 
1544 1556@ 1561 15778 1582 1592 1597 1608" 1613 1625@ 1630 16908 1708 
1710# 1730 1775#@ = =1780 18148 1820 18614 1869 18768 1886 18944 1902 19228 
1931 1934@ 1940 19818 1995 20748 2079 21468 8 2151 C2628 §=—2303 23188 2326 
23438 82374 24218 2427 24°98 2434 2455@ 2459 24618 2465 24678 «2472 24748 
2480 25148 2519 

$1SK1 = 000001 1715# 1723 1988" 1993 22658 «2301 23618 2372 

$1SK2 = 000003 22688 2277 22844 2292 

SITEMB 001114 858" 3204 3655* 3663 3684 

$_f 001172 885# 3419 3556 3565 3684 

$LFLG 015227 3617* 36234 

$LOCTA= 177777 6344 1437 1438 1441 1442 1452 1453 1456 1457 1468 1469 1472 1473 
1487 1488 1491 1492 1509 1510 1513 1514 1524 1$25 1528 1529 1540 
1541 1544 1545 1557 155 1561 1562 1578 1579 1582 1583 1593 1594 
1597 1598 1609 1610 1613 1614 1626 1627 1630 1631 1655 1656 1691 
1692 1699 1700 1701 1708 1709 1711 1712 1716 1717 1723. 1726 1725 
1726 1727 1730 173) 1733 1734 1735 1736 1737 1776 1777 1789 1781 
1815 1816 1820 1821 1862 1863 1869 1870 1877 1878 1886 1887 1895 
1896 1902 1903 1923 1924 1931 1932 1935 1936 1940 1941 1982 1933 
1989 1990 1993 1994 1995 1996 2075 2076 2079 2080 2118 2119 2120 
212! 2122 2123 2124 2147 2148 2151 2152 2173 2174 2175 2263 2264 
2266 2267 2269 2270 2273 2274 2275 2276 2277 2280 2281 2282 2283 
2284 2287 2288 2289 2292 2293. 2294 2295 2296 2297 2298 2301 2362 
2303 2304 2319 2320 2321 2322 2326 2327 2344 2345 2346 2347 2348 
2356 2357 2358 2362 2363 2366 2°%47 7468 2372 2373 2374 2375 2422 
2423 2427 2428 2430 2451 2434 2455 2456 2457 2459 2460 2462 246% 
soo 2466 2468 2469 2472 2473 2475 2476 2480 2481 2515 2516 2519 

$i. PADR 001106 855a 1012* 3724" 3740° 3745 3747 

$i. PERR 001110 8568 1013* 1432* 1445 1460* 1476* 1504« 1517« 1532s 15488 1573e 1586* Todle 
1617* 1632* 1757* 1770* 17948 1835¢ 1873« 1889* 1905* 19618 1999e 20418. 2083 
2400" 24828 3674 3724 37418 3747 

$LSTCN= 177777 6344 1436 1438 1441 1451 1453 1456 1467 1469 1472 1486 1488 1691 
1508 1510 1513 1523 1525 1528 1539 1541 1544 1556 1558 1561 15?? 
1579 1582 1592 1594 1597 1608 1610 1613 1625 162? 1630 1655 16S6 
1690 1692 1700 1791 1708 1710 1712 1715 1717 1723 1726 1727 1730 
1735 1736 1775 1777 1780 1814 1816 1820 1861 1863 1869 1876 1878 
1886 1894 1896 1902 1922 1924 1931 1934 19%6 1949 198) 1983 1988 
1990 1993 1995 2074 2076 2079 2417 2119 2120 2121 2124 2146 Par.) 
2151 2173 2174 2262 2264 2265 2267 6268 2270 2276 2275 227? 22k! 
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2282 2284 2288 2289 2292 2293 2294 2297 2298 2301 2303 2318 2322 
2326 2343 2348 2357 2358 2361 2363 2367 2368 2372 2374 2421 = “2423 
2427 2429 2431 2434 2455 2457 2459 2461 2463 2465 2467 2469 2472 
2474 2476 2480 2514 2516 2519 
$LSTIN= 000000 6348 1436 1437 1438 1448 1449 1451 1452 1453 1464 1465 1467 1468 
1469 1480 1481 1486 1487 1488 1508 1509 1510 1520 1521 1523 1524 
1525 1536 1537 1539 1540 1541 1552 1553 1556 1557 1558 1577 1578 
1579 1589 1590 1592 1593 1594 1605 1606 1608 1609 1610 1621 1622 
1625 1626 1627 1653 1654 1658 1659 1660 1661 1668 1669 1685 1686 
1690 1691 1692 1695 1696 1699 1700 1710 1711 1712 1713 1714 1715 
1716 1717 1721 1722 1725 1726 1728 1729 1732 1733 1734 1735 1736 
1761 1762 1775 1776 1777 1799 1800 1811 1812 1814 1815 1816 1842 
1843 1852 1853 1857 1858 1861 1862 1863 1876 1877 1878 1894 1895 
1896 1913 1914 1922 1923 1924 1934 1935 1936 1970 1971 1974 1975 
1981 1982 1983 1988 1989 1990 2003 2004 2006 2007 2010 2011 2044 
2045 2047 2048 2054 2055 2064 2065 2074 2075 2076 2087 2088 2090 
2091 2093 2094 2117 2118 2119 2120 2121 2122 2123 2124 2133 2134 
2143 2144 2146 2147 2148 2173 2174 2208 2209 2211 2212 2213 2214 
2217 2218 2219 2220 2223 2224 2225 2226 2235 2236 2238 2239 2258 
2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2273 
2274 2275 2276 2277 2280 2281 2282 2283 2284 2287 2288 2296 2297 
2318 2319 2320 2321 2322 2324 2325 2329 2330 2340 2341 2343 2344 
2345 2346 2347 2350 2351 2352 2353 2354 2355 2356 2357 2359 2360 
2361 2362 2363 2364 2305 2366 2367 2370 2371 2404 2405 2407 2408 
2410 2411 2419 2420 2421 2422 2423 2425 2426 2429 2430 243) 2432 
2433 2455 2456 2457 2461 246¢ 2463 2467 2468 2469 2474 2475 2476 
2486 2487 2496 2497 2501 2502 2504 2505 2514 2515 2516 
$LSTST= 177777 6348 1436 1438 1441 1451 1453 1456 1467 1469 1472 1486 1488 1491 
1508 1510 1513 1523 1525 1528 1539 1541 1544 1556 1558 1561 1577 
1579 1582 1592 1594 1597 1608 1610 1613 1625 1627 1630 1655 1656 
1690 1692 1699 1700 17€1 1708 1710 1712 1715 1717 1723 1725 1726 
1727 1730 1732 1735 1736 1775 1777 1780 1814 1816 1820 1861 1863 
1869 1876 1878 1886 1894 1896 1902 1922 1924 1931 1934 1936 1940 
1981 1983 1988 1990 1993 1995 2074 2076 2079 2117 2119 2120 2121 
. 2124 2146 2148 2151 2173 2174 2262 2264 2265 2267 2268 2270 2273 
2274 2275 2277 2280 2281 2282 2284 2287 2288 2289 2292 2293 2294 
2296 2297 2298 2301 2303 2318 2322 2326 2343 2348 2356 2357 2358 
2361 2363 2366 2367 2368 2372 2374 2421 2423 2427 2429 243) 2434 
or itd 2459 2461 2463 2465 2467 2469 2472 2474 2476 2480 2514 
2516 
$LSTTA= 000000 6348 1441 1442 1456 1457 1472 1473 1491 1492 1513 1514 1528 1$29 
1544 1545 1561 1562 158&2 1583 1897 1598 1613 1614 1630 1631 1655 
1656 1700 1701 1708 1709 1723 1724 1726 1727 1730 1731 1736 173? 
1780 1781 1820 1821 1869 1870 1886 1887 1902 1903 1931 1932 1940 
1941 1993 1994 1995 1996 2079 2080 e1ig9 2120 2121 2122 2151 2182 
2174 2175 227% 2275 0281 2282 2288 2289 2292 2293 2294 2295 2297 
2298 2301 2302 2303 2304 2326 232? 2347 2348 2357 2358 2367 2368 
2372 2573 2374 2375 242? 2428 2434 2435 2459 2460 2465 2466 2472 
2473 2480 2481 2519 2520 
$MADR1 901226 9188 
BMADR2 001232 922" 
SMADRS 001236 925@ 
SMADRG 001242 923" . 
$MAli = 001174 838 842 8918 1030 1045 1077 1115 124) 1298 1374 1423 1498 14? 
1827 19%2 2027 2109 2181 2389 257% 2788 B%pz Sen? 
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SMAMS1 001224 91\2a 

SMAMS2 001250 920" 

SMAMS3 001234 9238 

SMAMSG 001240 9268 

SMBADR 001002 &38ea 

SMCALL= 000000 la 634 

SMFLG 015226 3577* 3583 3618e 36228 

SMNEW 014752 3110 3444 35708 

SMSGAD 001210 898" 35938 3596 

SMSGLG 001212 899" 3598¢ 

SMSGTY 001174 8924 359) 3599¢ 3611 36'5* 

SMSWR 014741 344) 35084 

$MTYP1 001225 9138 

SMTYP2 001231 9214 

SMTYP3) 001235 924" 

SMTYP4 001241 92748 

SMKCNT 015710 3737 37478 

SNESTL= 177777 6344 14368 14414 14518 14568 1467 14728 14864 14914 1508" 15138 15234 15288 
1539" 15448 15564 15618 1577# 15824 1592 1597@ 16084 16134 16258 1630# 1655#@ 
16904 1699 17084 17108 17°5@ 17234 1725 17304 1732 17354 1775@ 1780# 18148 
18204 18614 1869" 1876# 1864 18944 19024 19228 19314 1934a 19408 19818 1988" 
19934 1995@ 2074# 20798 21178 21468 21518 21738 2262 22658 22688 2273 2280 
2287 2292" 2296 23018 23038 23188 23268 86234638 = 2356 23618 2366 23728 8623748 


26218 «26278 = 24298 24348 = 2455H 2459 = 24618 = 26654 = 467# = 24728 = 26748 = 24808 5148 


$nSxO = 000110 14368 1441 14514 1456 144574 1472 14864 1491 15084 1513 15234 1528 15398 
1544 15564 1561 15774 1582 15928 1597 16084 1613 16254 1630 16554 1732 
1735 17754 1780 18144 1820 18618 1869 18768 1886 18944 1902 19228 1931 
1934" 1940 19814 1995 20748 2079 21178 217 22628 82303 23188 2326 23458 
2356 2374 24214 2427 24298 2434 24558 2459 24618 2465 24678 2472 24748 


$nSk1 = 000110 1690# 1699 1708 1710# 1725 1730 19888 1993 2146# 2151 22658 2296 2301 
23614 2366 2372 i 

$nsx2 = 000110 17158 1723 22688 82273 2280 2287 2292 

$NULL 001154 876" 3390 3419 

$nw1ST= 000001 106084 1070 1100# 1102 12%6@ 12888 1305¢@ 1367 14168 1418 14938 15638 1565 


16414 1643 174384 1745 17828 18228 19424 1944 20194 2021 21048 2\7oa 23808 
2382 25264 25664 2568 2719# = 2721 

$OCNT 016360 3847* 3876* 3889" 

SOMODE 016362 3842" 58468 3851 3854« 3865¢ 38918 

SOVER 015674 3701 3717 3725 3735 37448 

$PASS 001202 895a 1030« 3269e 3270+ 3278 3291 273) 3748 

SPASTM 001006 840" 

SPOWER 013630 3330 33378 

SPWRAD 013616 33320 

SPWRON 013456 1006 3299" 3327 

SPWRMG 015612 2330" 

$PwRUP 013530 3309 33158 

$QVES 001170 883a 3147 3419 3495 3549 3565 3684 

SRDCHR 014444 35084 3932 

SRODEC= eeeeee 3934 

SRDLIN 014564 3536" 3933 

SRDOC T= eeeeer V 3934 

$RDSZ = 000010 3529" 

SRINAD 013434 2290" 

$R2A = eeeeee | 3934 





a ee = _— —— 
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$SAVLE= 177777 6348 8617358 «(1736 = =—21208 = 21248 

SSAVRE= steerer | 3934 

SSAVR6 015626 - 3308" 3316 3317* 3318" 52368 

SSCOPE 015432 1000 36988 

$SETUP= 000137 991" 999 1000 1002 1004 1006 1008 1009 1010 1012 1039 1042 3267 
3424 3572 3645 3671 3679 3699 

$SSKO = 000037 1735#@ = §=1736 21208 2124 

$STuP = 177777 9918 

$SSVLAD 015640 3709 37388 

$SvPC = 000104 814a 819 

$SWR = 167400 6348 645 650 651 652 653 654 655 65 880 881 882 1009 
1010 1012 1013 1076 1114 1240 1292 1373 1422 1497 1569 1647 1749 
1786 1826 1951 2026 2108 2180 2388 2530 2575 2732 3262 3268 3283 
3289 3291 3333 3636 3637 3638 3639 3640 3649 3656 3668 3672 3684 
3690 3691 3692 3693 3694 3700 3712 3714 3715 3718 3719 3720 3727 
3728 3729 3741 3744 3747 

SSWREG 001216 903# 1033 

$SWRMK= 000000 656 657 3694 3695 3716 

STAGLE= 177777 6348 16388 14418 14538 14568 14698 14728 146888 14918 1510 15135 1525 15288 
1541@ 15448 15584 15618 15798 1582 15946 1597# 1610 1613 1627# 16308 16568 
16928 17008 17018 1708 17:2 1717# 1723 1726 17278 81730 = 1732 1735@ 8617778 
17808 1816 18208 18634 18698 1878 18868 1896 1902 19246# 1931# 1936# 19408 


$TAGNU= 000070 6344 1437 14384 1452 1453# 1468 


1 

1540 1541# 1557 1558# 1578 1579# 1593 1594@ 1609 1610# 1626 1627#@ §=©1655 
1656# 1691 1692# 1699 17018 1711 1712#@ = =61716 1717#@ = =-1725 1727#@ 1776 17778 
1815 1816# 1862 1863#@ 1877 18784 1895 1896# 192 1924 1935 1936#@ 1982 
1983# 1989 1990# 2075 2076# 2118 2119# 2120 2123 21246# 2147 21488 2263 
22048 2266 22678 2269 22708 2275 22758 2276 22778 2280 22828 2283 22848 
2287 22898 2296 22988 2319 2321 23228 2344 2346 2347 23488 2356 23588 
2362 23634 ©2366 23688 «2422: 24238 = 24380 24318 2456 24578 2462 24638 2468 
24698 2475 247.4 2315 25168 

STEMP = 000067 1441 16488 16498 1656 1404 16658 1472 14680# 146818 14918 1513# 1520# 15218 
15284 1536# 1537 15446# 1552@ 1553@ 1561# 1582 15898 1590# 1597# 1605#@ 16068 
16134 16214 16224 16304 16534 16544 16584 16598 16604 16614 16684 16698 16858 
16864 1695# 1696# 16998 1700# 1708 1713 = 17146@ 1721@ 1722 17238 1725 17268 
17284 17294 730" 17328 1733 1735# 17364 17614 17624 17804 17998 18008 18118 
1812¢ 1820 18462 18438 1852 1853 1857# 18584 1869 1886# 1902 1913# 1914# 
19314 19404 19704 19714 19748 19754 19934 19954 20034 20044 200684 20078 20108 
20114 20448 20454 20478 20488 20544 20554 20644 20654 20798 20878 208884 20908 
2091# 2093# 20946# 21218 2126 21338 8 2134# 21463H 21464 «21518 921738 = 21748 = 22088 
22094 22114 22124 22134 22148 22178 22188 22198 22208 222358 22248 2225 a 22268 
22354 2236a 22384 22398 22584 22598 226084 22614 227384 2274s o27/# 22808 22818 
22848 22878 22888 22928 22938 22948 22968 22978 23014 23034 23248 23258 23268 
23298 23308" 234084 23418 2350" 23514 23528 23538 23548 235584 23568 23578 23598 
23604 23648 23654 23668 - 23678 23704 o37ia# 23728 23748 24048 24054 24078 24088 
24108 24114 24198 24208 24258 24268 24278 24328 24334 24344 24598 24658 24728 
24808 24868 24878 24964 24978 25014 25024 25044 25054 25198 

$TESTN 001200 8948 1077* 1115+ 1241* 12938 1374* 14238 1498+ 1570* 16488 1750* 1787 18278 

s 1952* 2027* 2109 21818 2389" 2574 27338 3203 3209 37398 

$T1MES 001160 8804 1009* 1076* 11148 12408 1292 1373+ 142e8 1497 1569« 1647 17498 1786 

1826* 19518 2026" 2108 21808 2388* 25308 25738 27328 3268 37278 3734 373/78 
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3747 

$TKB 001146 873a 3117 3422 3433 3450 3512 3518 

$IKS 001144 siGe gore 2668 2767 2823 2917 3088 3115 3422 3431 5447 3459¢ 54798 

$1N = 000025 634m 645 1068 10768 1077 1080 1096 1100 11146#@ 1115 1198 1227 1236 
12404 1241 1244 1284 1288 1292#@ 8 1293 1365 1373#@ 1374 1416 14228 = §=1423 
1428 1493 1497# 1498 * 1563 1569# 1570 1635 1641 16474 1648 1651 1674 
1705 1743 1749# = =1750 1753 1755 1767 1782 17864 =1787 1790 1792 1805 
1822 18264 1827 1830 1832 1848 1867 1884 1900 1919 1929 1942 19518 
1952 1967 1978 2019 2026# 2027 2030 2032 2060 2069 2104 2108# 2109 
2112 2114 2129 2139 2157 2162 2176 21808 2181 2305 2380 23888 2389 
2416 2492 2510 2521 2526 25308 2566 257358 = 2574 2680 2719 27328 862733 

t1PB 001152 8758 3408" 3419 

STPFLG 001157 879H 3357 3419 

$TPS 001150 874# 3406 3419 

STRAP 016364 1004 39008 

STRAP2 016406 3911# 3922 

$TRP = 000013 39158 3924 39258 3926 3927# 39288 3929 39308 3931 3932e@ 8=63933#@ 86039348 39358 

$TRPAD 016420 3905 3922m 


$1SKO = 000067 14388 1441 14538 1456 1469# 1472 14888 1491 1510# 1513 1525# 1528 15418 


$1SK1 = 000060 4 be He 1735 19904" 1993 21248 8392173 22674 82297 2298" 2301 236038 2367 
68a 
$1SK2 = 000045 Ng 1700 17018 1708 1712#@ 1726 1727 1730 21488 2151 22708 2274 22758 
2294 
$1Sk3 = 000047 1717@ 1723 2277#@ = =—2281 22828 8 §=2293 
$1SK4 = 000051 22848 2288 2289" 2292 
$TSTM 001004 839" 
$STSTNM 001102 852 2560* 3267 3648 3684 3689 3716 3738e 3739 3744 3748 
STTYIN 014712 2537 3538 3560 3564" 
STYPBN= *eeree VY 3928 
$TYPDS 015712 37604 3927 
$TYPE 013640 3357#@ 3604 3915 3923 
$TYPEC 014052 3131 3387 3394 3401 3400# 3407 3481 
$STYPEX 014120 3412 3414 3417@ 
$TYPOC 016162 3845#e@ 3924 
$TYPON 016176 3844 3847# 3926 Se 
$TYPOS 016136 3840# 3925 
$UNIT 001206 8974" 1333" 25568 3003 3005* 3017 3022" 3053« 3058« 
SUNITM 001010 8414 
$uSswR 001220 904" 
$VECT1 001244 9294 
$VECT2 001246 930" 
$XTSTR 015444 37034 
$vESNO= 000001 14484 14498 14644 1465# 14808 14818 1520# 15214 15368 1537@ 1552@ 15538 15898 
1590# 16054 1606# l6o2\4 loe2# 17138 1714@ 19708 1971#@ 1976@ 1975@ 2003#@ 20048 
2047# 20688 206046# °2005# 20878 2088 2120@ 2121 2235 22368 22388 22398 22588 
22598 2260# 22618 2329# 23308 23528 23538 2354 2355 23598 236008 23648 25658 
7370# =. 23718 = 607# = 408M = 4258 4268 = 24328 433M BOM = 4 B7H = 4968 = 4978 
$$Brvt&= 000402 14364 14514 1467 14868 15084 15234 15394 15564 15778 15928 16088 16258@ 146908 
18 19 19814 19888 20748 21468 
23 23 23618 24218 24298 24558 
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24618 26678 26768 25148 

$$FLAG= 000001 '436H = 1438 14414 14514 1453 14568 14678 1469 1472# 14864 1488 14918 15088 
“510 1513@ 15234 8 1525 15284 15398 1541 15448 1556@ 1558 15614 1577# 1579 
*582a 15924 1594 1597# i608" 1610 16138 16254 1627 1630#  1690# 1692 17088 
*710# 1712 17158 1717 1723#@ = 3=—17308 1775#@ 861777 17804 18148 1816 18208 18618 
*863 18694 18764 1878 18868 18948 #189 19024 19228 1924 1931#@ 19348 1936 
‘9408 19818 1983 1988# 1990: 1993#@ 1995# 2074# 2076 2079# 21468 2148 21514 
22624 = =—2.264 22654 2267 22488 82270 2275# 2277 2282" 8622 B4 22928 23018 23038 
23188 23204 2322 23268 86923438 «023458 = 2348 236:8 2363 23728 = 23748 4218 428 
24278 = =—24298 = 2431 24348 24558 2457 24598 26618 2463 246654 24678 2469 24728 
24748 2676 24808 25148 2516 25198 

$$GE14= 000000 32838 

$$L0C = 006740 1437#@ 81438 1452@ 1453 14684 1469 1487# 1488 1509# 1510 1524# 1525 15408 ‘ 
1541 1557 1558 1578" 1579 1593@ 1594 16094 1610 16268 1627 1691# 1692 
1711# = =1712 1716@ #8 1717 1?776# = =—1777 18158 1816 18624 1863 1877# 1878 18954 
1896 19234 1924 1935@ 1936: 19828 1983 19898 1990 20754 2076 21478 2148 
22634 2264 22664 2267 2269 2270 22768 862277 22838 82284 23198 2320 23218 
2 23464 2347 23624 8236 26228 = 2423 24308 8 2431 24568 26457 24628 = 2463 
246684 2469 24758 2476 25194 2516 

SOFILL 016361 3841* 3845« 3855 38908 

$1 003500 1437 14414 

$10 003766 1557 15614 

$11 004024 1578 1582a 

$12 004052 1593 1597¢@ 

$13 004100 1609 16134 

$14 004130 1626 16304 

$15 004202 1655@ 1735 

$16 004 364 1733 17364 

$17 004272 1691 17004 

$2 003526 1452 14564 

$20 004306 1699 1708 

$21 004344 1711 17264 -d 

$22 004342 1716 17234 

$23 004352 1725 1730# 

$24 004476 1776 17808 

$25 004574 1815 18208 

$26 004702 1862 1869" 

$27 004722 1877 18864 

$3 003554 1468 1472 

$30 004744 1895 1902a 

$31 005006 1923 19314 

$32 005020 1935 19404 

$33 005172 1982 1995¢@ 

$34 005172 1989 19934 

$35 005410 2075 20798 

$36 005524 2118 21214 

$37 005522 2119# 2173 

$4 003612 1487 14914 

$40 005654 2123 21748 

S4OCAT= eeeeee 3658 3700 

$4 005602 2147 21514 

$42 006176 2263 23034 

$43 006174 2266 22978 

$44 006140 2269 2274m 

$45 006172 2273 22948 


$46 006154 2276 2281" 





—-<d 











CVMKAAO MXVITA_ DIAG eect}! atetchintet wite “MAY-79 15:58 PAGE 106 


CVMKAA.P11 30-MAY-79 15:57 ROSS REFERENCE TABLE -- USER SYMBOLS 
$47 006172 2280 22938 
$5 003662 1509 15134 
$50 006170 2285 22888 
$51 006172 2287 22928 
$52 006176 2296 2301" 
$53 006230 2319 2321 23268 
$54 006270 2344 23478 
$55 006312 2346 2357" 
$56 006344 2356 23748 
$57 006356 2362 23678 
$6 003710 1524 15284 
$60 006344 2366 23728 
$61 006474 2422 24278 
$62 006510 2430 24348 
$63 006604 2456 24598 
$64 006616 2462 2465" 
$65 006630 2468 24728 
$66 006642 2475 2480" 
$67 006744 2515 25198 
$7 003736 1540 15448 
= 016446 796" 800" 806" 814 8158 817# 8198 8208 826 8278 829" 
886 997 1012 1013 1356 1408 1437 1438 1452 1453 1468 
1487 1488 1509 1510 1524 1525 1540 1541 1557 1558 1578 
1594 1609 1610 1626 1627 1691 1692 1711 1712 1716 1717 
1777 1815 1816 1862 1863 1877 1878 1895 1896 1923 1924 
1982 1983 1989 1990 2014 2075 2076 2097 2147 2148 2170 
2266 2267 2269 2270 2276 2e/7 2283 2284 2319 2320 2321 
2347 2362 2363 2422 2423 2430 2431 2456 2457 2462 2465 
2475 2476 2515 2516 2537# 25428 2649 2659 2663 2672 676 
2760 2762 2782 2784 2793 2810 812 2833 2835 28918 28928 
3043 3049 3067 3073 3079 3085 3197 3202@ 8 8=6932078 =32138 32558 
3311 3335 3419 3422 35648 3565 35728 «36258 3684 3747 3748 
» SASTA= eeeere | 3577 3580 


001000 8268 831 





8318 


3R14e 


SEQ 0103 
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BEGIN la 

CALL \g 

CASE la 

COMMEN la 7678 

DECR la 

DECRU la 

DEF AUL la 

ty 7. 16°82 1724 2272 2279 2286 2295 2355 2365 

ENDCOM la 7674# 

ENDDEC la 

ENDDO la 

ENDIF la 1440 1455 1471 1490 1512 1527 1543 1560 1581 1596 1612 1629 1707 1722 
1729 1779 1819 1868 1885 1901 1930 1939 1992 1994 2078 2150 2291 2300 2302 
2325 2371 2373 2426 2433 2458 2464 2471 2479 518 

ENDINC la 2172 

ENDLOO la 1734 

ENDRIN la 

ENDSEL la 

ERROR 6614 1093 1132 1145 1152 1176 1195 1214 1258 1275 1313 1321 1386 1597 1401 
1405 1409 1439 1454 1470 1489 1511 1526 1542 1559 1580 1595 1611 1628 1636 
1673 1704 1719 1766 1778 1804 1817 1847 1864 1880 1898 1918 1925 1937 1966 
1977 1991 2015 2059 2068 2077 2098 2128 2138 2149 2156 2161 2168 2250 2271 
2278 2285 2290 2299 2415 2451 2457 2463 2469 2476 2491 2509 2517 2604 2629 
2600 2664 2673 2677 2811 2813 2834 2836 

ESCAPE la 7674 

EXIF la 1731 

EX1FB la 

GETPR] la 7674 

GE TSWR la 7674 10424 

lf la 1435 1450 1466 1485 1507 1522 1538 1555 1576 1591 1607 1624 1689 1709 
1714 1774 1813 1860 1875 1893 1921 1933 1980 1987 2073 2145 2261 2264 2267 
2317 2342 2360 2428 2454 2460 2466 2473 

1FB 1# 2620 2513 

1 COND la 

lt .ERR la 

IF .NO. la 

INCR l# 2116 

INCRU la 

INL INE la 

LEAVE la 

LET la 1447 1463 1479 1519 1535 1551 1588 1604 1620 1652 1657 1659 1667 V4PG 
1694 1712 1720 1727 1760 1798 1810 1841 1851 1856 1912 1969 1973 2002 ’005 
2009 2043 2046 2053 2063 2086 2089 2092 2132 2142 2207 2210 2212 2216 els 
2222 2224 2234 2237 2257 2259 2323 2328 2339 2349 2351 2353 2358 2563 256 
2403 2406 2409 2418 2424 2431 2485 2495 2500 2503 

LOCAL la 7 

LOOP i] 1654 s 

LPADR 6344 1431 1444 1459 1475 1503 1516 1531 1547 1572 1585 1600 1ol6 1756 1769 
1793 1834 1872 1888 1904 1960 1998 2040 2082 2599 2481 

MSG 10684 1070 1100@ 1102 1365@ 1367 1416 1418 15634 1565 16418 1643 17438 1745 19428 
1944 2019# 2021 23808 2382 25064 2568 27198 = 2721 

MULT la 7678 

NEWTST iF 7674 1068 1100 1236 1288 1365 1416 1493 1563 164) 1743 1782 1822 1942 

19 2104 2176 2380 2526 2566 2719 
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POP ia 767# 3320 3321 3619 3620 3801 

PUSH ls 767" 3301 3307 3580 3582 3603 3760 

REPEAT is 

REPORT la 6344 7674 

RETURN iT] 

ROUTIN la 

SAVR14 la 

SCOPE 6628 1075 1113 1239 1291 1372 1421 1496 1568 1645 1748 1785 1825 1950 2025 

mustt ~~, 2179 2387 2529 2572 2731 3266 

L 

SETPRI la 7678 1500 1971 2050 2100 2205 2581 2647 2651 2743 2790 2796 

SETTRA 3915a@ 3924 3925 3926 3927 3929 3931 3932 3933 3934 

SETUP la 7678 991 

SKIP la 7678 1080 1096 1197 1227 1244 1284 1428 1635 1651 1674 1705 1753 1755 
1767 1790 1792 1805 1830 1832 1848 1867 1884 1900 1919 1929 1967 1978 2030 
2032 2060 2069 2112 2114 2129 2139 2157 2162 2304 2416 2492 2510 2520 2679 

SLASH la 767# 

SPACE 7678 

STARS la 7674" 793 812 823 825 832 845 886 889 970 972 1068 1074 1100 
1112 1236 1238 1248 1250 1265 1267 1288 1290 1365 1371 1411 1413 1416 1420 
1493 1495 1563 1567 1641 1645 1743 1747 1782 1784 1822 1824 1942 1949 2019 
2024 2104 2106 2176 2178 2313 2315 2334 2336 2380 2386 2526 2528 2566 2571 
2683 2685 2719 2730 2846 2848 2993 2997 3103 3105 3153 3157 3258 3297 3315 
3342 3421 3424 3500 3529 3575 3632 3686 3750 3817 3894 

STRUCT la 6344 

SWRSU lf” 767# 10144 

TRMTRP 3915@ 

TYPBIN i” 7674 

TYPDEC ls 767# 2549 3278 

TYPNAM 1” 7678 1035 

TYPNUM iF 7074 

TYPOCS la 7674 3205 

TYPOCT la 767# 2545 2547 3108 3200 3207 3213 3215 3442 

TYPTXT la 767# 2536 2541 2544 2546 2548 3201 3203 3206 3212 3214 

UNTIL la 

UNTILB la 

WAITMS 6344 

WHILE la 

WHILEB la 

SADDON la 1436 1438 1451 1453 1467 1469 1486 1488 1508 1510 1523 1525 1§39 1541 
1556 1558 1577 1579 1592 1594 1608 1610 1625 1627 1655 1656 1690 1692 1701 
1710 1712 1715 1717 1727 1735 1775 1777 1814 1816 1861 1863 1876 1878 1894 
1896 1922 1924 1934 1936 1981 1983 1988 1990 2074 2076 2117 2119 2120 2124 
2146 2148 2262 2264 2265 2267 2268 2270 2275 2277 2282 2284 2289 2298 2318 
2322 2343 2348 2358 2361 2363 2368 2421 2423 2429 2431 2455 2457 2461 2463 
2467 2469 2474 2476 2514 2516 

SAND la 2318 

SBRANC la 1437 1452 1468 1487 1509 1524 1540 1557 1578 1593 1609 1626 1691 1699 
1711 1716 1725 1733 1735 1776 1815 1862 1877 1895 1923 1935 1982 1989 2075 
2118 2123 2147 2173 2263 2266 2269 2273 2276 2280 2283 2287 2296 2319 2321 
2344 2346 2356 2362 2366 2422 2430 2456 2462 2468 2475 2515 

$BRCOD ls 1732 2122 2343 

$CALL lf 

SCHE CK ‘g 1436 1451 1467 1486 1568 1$23 1539 1556 1577 1592 1608 1625 1699 1710 
1715 1775 1814 1861 1876 1894 1922 1934 198) 1988 2074 2146 22 2265 26m 
227 2282 2318 2343 2361 2421 2429 2455 2461 2467 2474 25146 
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SCHKI 1# 1653 7658 «= 1660-1668 = 1685) 1695) 1721S «1728—S«1761 «1799-1811 = 1842) 1852—Ss«1857 
1913 2006 2010 2044 2054 2090 2093 2117 2120 2133 2143 2208 2211 2213 2e17 
2219 2223 2225 2324 2340 2350 2404 2410 2419 2501 2504 

$CKOP2 1@ 1668 1464-1480) 1520 1536) = 1552, «1589. 1605) 16211718 1970 1974 2003 2047 
2064 2087 2235 2238 2258 2260 2329 2352 2354 2359 2364 2370 2407 2425 2432 
2486 2496 

SCKRE 1s . 

$CMND 1# §1436 1451 1467 1486 1508 1523 1539 1556 1577 1592 1608 1625 1690 1710 
1715-1775) 1814 1861 1876 = 1894 = 1922, 1934 1981 1988 = 2074 = 146 262 2265 2268 
2275 2282 2318 2320 2343 2345 2361 2421 2429 2455 2461 2467 2474 2514 

SCOMPA lw 14636 = 14511467 1486 1508 = 1523) «1539. 1556) 1577 1592, 1608 = 1625. 1690 = 1710 
1715-1775) 18146 1861 = 1876 1894 1922, 1984 1981 19882074 = 117, 146 2262 65 
2268 = 2275. 2282) 2318 = 23482361 2421 24292455 2461 = 67 474516 

$COUNT 1s 

$00 ls 

SELSE #2275 2282 

SERRMS \" 

SEXIFA \s 

SEXIFO \" 

SEXIF2 \" 

SEXIF3 Ws 

$GENBR 1#@ = 14371452, 1466814871509 1524 1540-1557 1578 = 1593 1809 1626 1691 1699 
1711 1716—«*17250=Ss«d1783)«1735)2 «1776 1815) 1862 s«s1877— «1895. 19231935, 1982 19892075 
2118 2123 2147 2173 2265 2266 2269 2273 2276 2280 2283 2287 2296 2319 2321 
2344 2346 2356 2362 2366 2422 2430 2456 2462 2468 2475 2515 

SGENTA le = 1441 = 14561472) 1491-1518 1528 1544 1561-1582 1597 1618 = 1630 1655 = :1700 
1708 =6.1723s«1726~—S1730Ss«:1736 =: 1780S 1820 1869S «1886 = 19021931 19401993 1995 2079 
2119 2121-2151 2174 = 2274 281 = 2288 = 2292, 2293-2294 = 2297 2301S 2303 2326 847 
2357 236723722374 2427 = 2434 2459 = 2465 2472 2480 2519 

SIF le 1436 «1451 = 1467) 1486 = 1508 = 1523-1539 1556 = 1577, 1592 1608 = 1625. 1690 1710 
1715-1775, s«18146—s«*1861 = :1876 = 1894 = 1922, 1934 1981 1988 074 = 2146 e622 26S 2208 
2275 2282) 2318 = 2343 2361 = 2421 2429-2455 461 2467 47H 514 

$1F COD le 1636 1451 1467 1486 1508 1523 1539 1556 1577 1592 1608 1625 1690 1710 
1715-1775, «1814: 1861 «1876 = 1894 = 1922, 1934 1981 1988 = 074 = 2146 2262 he6S 2268 

: 2275, 2282 251823202545 2361 thet abe 2455 tT HBT aT 2514 

1F CON s 

SIFOPR le 1437-1452, 14668) 1487: 1509 1524 1540-1557 1578 1593 1609 1626 16911711 
1710 «1776 = «1815. 1862)—'s«1877— 1895 19231935) 1982 1989 2075 2147 = 2263 22662269 
2276 2283 2319 2321 2346 2362 2422 2430 2456 2462 2468 2475 2515 

$LET 1# 16468 1664 1480 1520 1536 1552 1589 1605 1621 1653 1658 1660 1668 1685 
1695 171321721. «1728)—Ss«1761)~S «1799S «1811 1842 1852185719138 19701974 = 2003S 2006 
2010 2044 2047 2054 2064 2087 2090 2093 2133 2143 2208 2211 2213 2217 2219 
2223 2225 2235 2238 2258 2260 2324 2329 2340 Seat 2352 2354 2359 2364 2370 

2504 
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1523 1524 1536 1539 1540 1552 1556 1557 1577 1578 1589 1592 1593 1605 1608 
1609 1621 1625 1626 1653 1658 1660 1668 1685 1690 1691 1695 1699 1710 1711 
1713 1715 1716 1721 1725 1728 1732 1733 1735 1761 1775 1776 1799 1811 1814 
1815 1842 1852 1857 1861 1862 1876 1877 1894 1895 1913 1922 1923 1934 1935 
1970 1974 1981 1982 1988 1989 2003 2006 2010 2044 2047 2054 2064 2074 2075 
2087 2090 2093 2117 , 2118 2120 2122 2123 2133 2143 2146 2147 2173 2208 22i1 
2213 2217 2219 wees © 22e9 2235 2238 2258 2260 2262 2263 2265 2266 2268 2269 
2273 2275 2276 2280 2282 2283 2287 2296 2318 2319 2320 2321 2324 2329 2340 
2343 2344 2345 2346’ 2350 2352 2354 235 2359 2361 2362 2364 2366 2370 2404 
2407 2410 2419 2427 2422 2425 2429 2430 2432 2455 2456 2461 2462 2467 2468 
2474 2475 2486 24% 2501 2504 2514 2515 

SOPEQU la / 

SOPNAN 1a | 

SOPNEG la 

SOPNOR la 

SOPNOT la 1464 1536 1605 1970 2003 2047 2087 2258 2260 2329 2352 2364 2496 

SOPOR , — 1448 1480 1520 1552 1589 1621 1974 2064 2235 2238 2370 2407 2425 2432 
486 

SOPROT iF 

SOPRO la@ 1653 1658 1660 1668 1685 1695 1721 1728 1761 1799 1811 1842 1852 1857 
1913 2006 2010 2044 2054 2090 2093 2117 2133 2143 2208 2211 2213 2217 2219 
2223 2225 2324 2340 2350 2404 2410 2439 2501 2504 

SOPR1 1# =2120 

$OPR2 lf §=1448 1464 1480 1520 1536 1552 1589 1605 1621 1713 1970 1974 2003 2047 
2064 2087 2235 7238 2258 2260 2329 2352 2354 2359 2364 2370 2407 2425 2432 
2486 2496 

SOPSHF if 

$OPSUB la ‘ 

SOPSwWB la , 

SOPXOR ‘a P 

SOR la 2343 

$PUT la 

$STRUC 1a $ 

$SUBON la 1441 1456 1472 1491 1515 1528 1544 1561 1582 1597 1613 1630 1700 1708 
1723 1726 1730 1735 1736 1780 1820 1869 1886 1902 193) 1940 1993 1995 2079 
2121 2124 2151 2173 2174 2274 «281 2288 2292 2293 2294 2297 2301 2303 2326 
2357 2367 2372 2374 2427 2434 2459 2465 2472 2480 2519 

$STHEN la 1436 1451 1467 1486 1508 1523 1539 1556 1577 1592 1608 1625 1690 1710 
1715 1775 1814 1861 1876 1894 1922 1934 1981 1988 2074 2146 2262 2265 2268 
2275 2282 2320 2345 236 2421 2429 2455 2461 2467 2474 2514 

STILA 1h 

$TILO lf 

SUNTL2 la 

SUNTL3 la 

SWHILE lf 


SSCMRE 8438 
SSCMIM 84358 


SSDEFA iF ] 

SSENDS la 

SSERRO la 

SSESCA lf 767 

$$GEN la 1441 1456 1472 1491 1513 1528 1544 1561 1582 159? 1613 1630 1655 1700 
1708 1723 1726 1730 1736 1780 1820 1869 1886 1902 1931 1940 1998 1995 2079 
2119 2121 2151 2174 2274 2281 2288 2292 2293 2294 2297 2301 2303 2326 234? 
2357 2367 2372 2374 2427 2434 2459 2465 2472 2480 2519 

$$GF1S la 1441 1456 1472 1491 1513 1528 1544 1561 1582 159? 1618 1630 1699 1700 
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1708 1723 1725 1726 1730 1732 1735 1736 1780 1820 1869 
1993 1995 2079 2121 2124 2151 2173 2174 2273 2274 2277 
2288 2292 2293 2294 2296 2297 2301 2303 2326 2356 2357 
2427 2434 2459 2465 2472 2480 2519 

$$GETT lf =. 1699 1725 1732 2273 2277 2280 2284 2287 2296 2356 

SSLPCN la 2126 

SSNEWT la 767# §=1068 1100 1236 1288 1365 1416 1493 1563 1641 
2019 2104 2176 2380 2526 2566 2719 

$sPoP 1#@ = 1441 1456 1472 1491 1513 1528 1544 1561 1582 1597 
1723 1726 1730 1735 1736 1780 1820 1869 1886 1902 1931 
2121 2124 2151 2173 2174 2274 2281 2288 2292 2293 2294 
2357 2367 2372 2374 2427 2434 2459 2465 2472 2480 2519 

$$PUSH if) 1436 1438 1451 1453 1467 1469 1486 1488 1508 1510 
1556 1558 1577 1579 1592 1594 1608 1610 1625 1627 1655 
1710 1712 1715 1717 1727 1735 1775 1777 1814 1816 186 
1896 1922 1924 1934 1936 1981 1983 1988 1990 2074 2076 
2146 2148 2262 2264 2265 2267 2268 227 2275 2277 2282 
2322 2343 2348 2358 2361 2363 2368 2421 2423 2429 243) 
2467 2469 2474 2476 2514 2516 





$$SETS 1469 1486 1488 1508 1510 
1608 1610 1625 1627 1655 
1775 1777 1814 1816 1861 
1983 1988 1990 2074 2076 
2268 2270 2275 2277 2282 
2368 2421 2423 2429 243) 


SEQ 0108 


| 
























F 
CVMKAAQ MXVIITA DIAG MACY11 30G6(1063) 30-MAY-79 15:58 PAGE 113 
CVAKAA.P11 30-MAY-79 15:57 CROSS REFERENCE TABLE -=- MACRO NAMES 


. SRDOC i] 

. SREAD if 6348 3419 
~SR2AZ i] 

. SSAVE la 

.-$SB20 la 

.$SB20 la 

.$SCOP la 6348 3684 
-$SIZE 1a 4 
.SSUPR lf 

STRAP la 6348 3892 
.STYPB lf 

.STYPD la 6344 3748 
-STYPE la 6344 3340 
.$TYPO la 6548 3815 
.$40CA la 

.1170 la 


- ABS. 016446 000 OvR Rw REL LC j 


ERRORS DETECTED: 0 


72: CVMKAA,2:CVMXAA/CRE/SOL=CVMXAA.SML ,SYSMAC.SML ,CVMXAA.P11 
RUN-TIME: 44 45 3 SECONDS 

RUN-TIME RATIO: 172/93=1.8 
CORE USED: 42x (83 PAGES) 





SEQ 0109 


